home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 16.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 70 73 69 |piled by| rms@psi|
|00000020| 6c 6f 63 69 6e 2e 67 6e | 75 2e 61 69 2e 6d 69 74 |locin.gn|u.ai.mit|
|00000030| 2e 65 64 75 20 6f 6e 20 | 4d 6f 6e 20 4a 75 6e 20 |.edu on |Mon Jun |
|00000040| 31 30 20 31 37 3a 33 38 | 3a 33 32 20 31 39 39 36 |10 17:38|:32 1996|
|00000050| 0a 3b 3b 3b 20 66 72 6f | 6d 20 66 69 6c 65 20 2f |.;;; fro|m file /|
|00000060| 68 6f 6d 65 2f 66 73 66 | 2f 72 6d 73 2f 65 31 39 |home/fsf|/rms/e19|
|00000070| 2f 6c 69 73 70 2f 66 72 | 61 6d 65 2e 65 6c 0a 3b |/lisp/fr|ame.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 33 31 2e 32 | 2e 0a 3b 3b 3b 20 62 79 | 19.31.2|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 2e 32 | 39 22 29 29 29 0a 20 20 |on "19.2|9"))). |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 60 66 72 61 6d 65 | (error| "`frame|
|000001a0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|000001b0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 2e 32 |d for Em|acs 19.2|
|000001c0| 39 20 6f 72 20 6c 61 74 | 65 72 22 29 29 0a 0a 0a |9 or lat|er"))...|
|000001d0| 23 40 32 30 32 20 57 69 | 6e 64 6f 77 2d 73 79 73 |#@202 Wi|ndow-sys|
|000001e0| 74 65 6d 20 64 65 70 65 | 6e 64 65 6e 74 20 66 75 |tem depe|ndent fu|
|000001f0| 6e 63 74 69 6f 6e 20 74 | 6f 20 63 61 6c 6c 20 74 |nction t|o call t|
|00000200| 6f 20 63 72 65 61 74 65 | 20 61 20 6e 65 77 20 66 |o create| a new f|
|00000210| 72 61 6d 65 2e 0a 54 68 | 65 20 77 69 6e 64 6f 77 |rame..Th|e window|
|00000220| 20 73 79 73 74 65 6d 20 | 73 74 61 72 74 75 70 20 | system |startup |
|00000230| 66 69 6c 65 20 73 68 6f | 75 6c 64 20 73 65 74 20 |file sho|uld set |
|00000240| 74 68 69 73 20 74 6f 20 | 69 74 73 20 66 72 61 6d |this to |its fram|
|00000250| 65 20 63 72 65 61 74 69 | 6f 6e 0a 66 75 6e 63 74 |e creati|on.funct|
|00000260| 69 6f 6e 2c 20 77 68 69 | 63 68 20 73 68 6f 75 6c |ion, whi|ch shoul|
|00000270| 64 20 74 61 6b 65 20 61 | 6e 20 61 6c 69 73 74 20 |d take a|n alist |
|00000280| 6f 66 20 70 61 72 61 6d | 65 74 65 72 73 20 61 73 |of param|eters as|
|00000290| 20 69 74 73 20 61 72 67 | 75 6d 65 6e 74 2e 1f 0a | its arg|ument...|
|000002a0| 28 64 65 66 76 61 72 20 | 66 72 61 6d 65 2d 63 72 |(defvar |frame-cr|
|000002b0| 65 61 74 69 6f 6e 2d 66 | 75 6e 63 74 69 6f 6e 20 |eation-f|unction |
|000002c0| 6e 69 6c 20 28 23 24 20 | 2e 20 34 37 30 29 29 0a |nil (#$ |. 470)).|
|000002d0| 23 40 31 30 35 36 20 41 | 6c 69 73 74 20 6f 66 20 |#@1056 A|list of |
|000002e0| 66 72 61 6d 65 20 70 61 | 72 61 6d 65 74 65 72 73 |frame pa|rameters|
|000002f0| 20 66 6f 72 20 63 72 65 | 61 74 69 6e 67 20 74 68 | for cre|ating th|
|00000300| 65 20 69 6e 69 74 69 61 | 6c 20 58 20 77 69 6e 64 |e initia|l X wind|
|00000310| 6f 77 20 66 72 61 6d 65 | 2e 0a 59 6f 75 20 63 61 |ow frame|..You ca|
|00000320| 6e 20 73 65 74 20 74 68 | 69 73 20 69 6e 20 79 6f |n set th|is in yo|
|00000330| 75 72 20 60 2e 65 6d 61 | 63 73 27 20 66 69 6c 65 |ur `.ema|cs' file|
|00000340| 3b 20 66 6f 72 20 65 78 | 61 6d 70 6c 65 2c 0a 20 |; for ex|ample,. |
|00000350| 28 73 65 74 71 20 69 6e | 69 74 69 61 6c 2d 66 72 |(setq in|itial-fr|
|00000360| 61 6d 65 2d 61 6c 69 73 | 74 20 27 28 28 74 6f 70 |ame-alis|t '((top|
|00000370| 20 2e 20 31 29 20 28 6c | 65 66 74 20 2e 20 31 29 | . 1) (l|eft . 1)|
|00000380| 20 28 77 69 64 74 68 20 | 2e 20 38 30 29 20 28 68 | (width |. 80) (h|
|00000390| 65 69 67 68 74 20 2e 20 | 35 35 29 29 29 0a 50 61 |eight . |55))).Pa|
|000003a0| 72 61 6d 65 74 65 72 73 | 20 73 70 65 63 69 66 69 |rameters| specifi|
|000003b0| 65 64 20 68 65 72 65 20 | 73 75 70 65 72 73 65 64 |ed here |supersed|
|000003c0| 65 20 74 68 65 20 76 61 | 6c 75 65 73 20 67 69 76 |e the va|lues giv|
|000003d0| 65 6e 20 69 6e 20 60 64 | 65 66 61 75 6c 74 2d 66 |en in `d|efault-f|
|000003e0| 72 61 6d 65 2d 61 6c 69 | 73 74 27 2e 0a 0a 49 66 |rame-ali|st'...If|
|000003f0| 20 74 68 65 20 76 61 6c | 75 65 20 63 61 6c 6c 73 | the val|ue calls|
|00000400| 20 66 6f 72 20 61 20 66 | 72 61 6d 65 20 77 69 74 | for a f|rame wit|
|00000410| 68 6f 75 74 20 61 20 6d | 69 6e 69 62 75 66 66 65 |hout a m|inibuffe|
|00000420| 72 2c 20 61 6e 64 20 79 | 6f 75 20 68 61 76 65 20 |r, and y|ou have |
|00000430| 6e 6f 74 20 63 72 65 61 | 74 65 64 0a 61 20 6d 69 |not crea|ted.a mi|
|00000440| 6e 69 62 75 66 66 65 72 | 20 66 72 61 6d 65 20 6f |nibuffer| frame o|
|00000450| 6e 20 79 6f 75 72 20 6f | 77 6e 2c 20 6f 6e 65 20 |n your o|wn, one |
|00000460| 69 73 20 63 72 65 61 74 | 65 64 20 61 63 63 6f 72 |is creat|ed accor|
|00000470| 64 69 6e 67 20 74 6f 0a | 60 6d 69 6e 69 62 75 66 |ding to.|`minibuf|
|00000480| 66 65 72 2d 66 72 61 6d | 65 2d 61 6c 69 73 74 27 |fer-fram|e-alist'|
|00000490| 2e 0a 0a 59 6f 75 20 63 | 61 6e 20 73 70 65 63 69 |...You c|an speci|
|000004a0| 66 79 20 67 65 6f 6d 65 | 74 72 79 2d 72 65 6c 61 |fy geome|try-rela|
|000004b0| 74 65 64 20 6f 70 74 69 | 6f 6e 73 20 66 6f 72 20 |ted opti|ons for |
|000004c0| 6a 75 73 74 20 74 68 65 | 20 69 6e 69 74 69 61 6c |just the| initial|
|000004d0| 20 66 72 61 6d 65 0a 62 | 79 20 73 65 74 74 69 6e | frame.b|y settin|
|000004e0| 67 20 74 68 69 73 20 76 | 61 72 69 61 62 6c 65 20 |g this v|ariable |
|000004f0| 69 6e 20 79 6f 75 72 20 | 60 2e 65 6d 61 63 73 27 |in your |`.emacs'|
|00000500| 20 66 69 6c 65 3b 20 68 | 6f 77 65 76 65 72 2c 20 | file; h|owever, |
|00000510| 74 68 65 79 20 77 6f 6e | 27 74 0a 74 61 6b 65 20 |they won|'t.take |
|00000520| 65 66 66 65 63 74 20 75 | 6e 74 69 6c 20 45 6d 61 |effect u|ntil Ema|
|00000530| 63 73 20 72 65 61 64 73 | 20 60 2e 65 6d 61 63 73 |cs reads| `.emacs|
|00000540| 27 2c 20 77 68 69 63 68 | 20 68 61 70 70 65 6e 73 |', which| happens|
|00000550| 20 61 66 74 65 72 20 66 | 69 72 73 74 20 63 72 65 | after f|irst cre|
|00000560| 61 74 69 6e 67 0a 74 68 | 65 20 66 72 61 6d 65 2e |ating.th|e frame.|
|00000570| 20 20 49 66 20 79 6f 75 | 20 77 61 6e 74 20 74 68 | If you| want th|
|00000580| 65 20 66 72 61 6d 65 20 | 74 6f 20 68 61 76 65 20 |e frame |to have |
|00000590| 74 68 65 20 70 72 6f 70 | 65 72 20 67 65 6f 6d 65 |the prop|er geome|
|000005a0| 74 72 79 20 61 73 20 73 | 6f 6f 6e 0a 61 73 20 69 |try as s|oon.as i|
|000005b0| 74 20 61 70 70 65 61 72 | 73 2c 20 79 6f 75 20 6e |t appear|s, you n|
|000005c0| 65 65 64 20 74 6f 20 75 | 73 65 20 74 68 69 73 20 |eed to u|se this |
|000005d0| 74 68 72 65 65 2d 73 74 | 65 70 20 70 72 6f 63 65 |three-st|ep proce|
|000005e0| 73 73 3a 0a 2a 20 53 70 | 65 63 69 66 79 20 58 20 |ss:.* Sp|ecify X |
|000005f0| 72 65 73 6f 75 72 63 65 | 73 20 74 6f 20 67 69 76 |resource|s to giv|
|00000600| 65 20 74 68 65 20 67 65 | 6f 6d 65 74 72 79 20 79 |e the ge|ometry y|
|00000610| 6f 75 20 77 61 6e 74 2e | 0a 2a 20 53 65 74 20 60 |ou want.|.* Set `|
|00000620| 64 65 66 61 75 6c 74 2d | 66 72 61 6d 65 2d 61 6c |default-|frame-al|
|00000630| 69 73 74 27 20 74 6f 20 | 6f 76 65 72 72 69 64 65 |ist' to |override|
|00000640| 20 74 68 65 73 65 20 6f | 70 74 69 6f 6e 73 20 73 | these o|ptions s|
|00000650| 6f 20 74 68 61 74 20 74 | 68 65 79 0a 20 20 64 6f |o that t|hey. do|
|00000660| 6e 27 74 20 61 66 66 65 | 63 74 20 73 75 62 73 65 |n't affe|ct subse|
|00000670| 71 75 65 6e 74 20 66 72 | 61 6d 65 73 2e 0a 2a 20 |quent fr|ames..* |
|00000680| 53 65 74 20 60 69 6e 69 | 74 69 61 6c 2d 66 72 61 |Set `ini|tial-fra|
|00000690| 6d 65 2d 61 6c 69 73 74 | 27 20 69 6e 20 61 20 77 |me-alist|' in a w|
|000006a0| 61 79 20 74 68 61 74 20 | 6d 61 74 63 68 65 73 20 |ay that |matches |
|000006b0| 74 68 65 20 58 20 72 65 | 73 6f 75 72 63 65 73 2c |the X re|sources,|
|000006c0| 0a 20 20 74 6f 20 6f 76 | 65 72 72 69 64 65 20 77 |. to ov|erride w|
|000006d0| 68 61 74 20 79 6f 75 20 | 70 75 74 20 69 6e 20 60 |hat you |put in `|
|000006e0| 64 65 66 61 75 6c 74 2d | 66 72 61 6d 65 2d 61 6c |default-|frame-al|
|000006f0| 69 73 74 27 2e 1f 0a 28 | 64 65 66 76 61 72 20 69 |ist'...(|defvar i|
|00000700| 6e 69 74 69 61 6c 2d 66 | 72 61 6d 65 2d 61 6c 69 |nitial-f|rame-ali|
|00000710| 73 74 20 28 71 75 6f 74 | 65 20 28 28 6d 69 6e 69 |st (quot|e ((mini|
|00000720| 62 75 66 66 65 72 20 2e | 20 74 29 29 29 20 28 23 |buffer .| t))) (#|
|00000730| 24 20 2e 20 37 32 37 29 | 29 0a 23 40 32 38 36 20 |$ . 727)|).#@286 |
|00000740| 41 6c 69 73 74 20 6f 66 | 20 66 72 61 6d 65 20 70 |Alist of| frame p|
|00000750| 61 72 61 6d 65 74 65 72 | 73 20 66 6f 72 20 69 6e |arameter|s for in|
|00000760| 69 74 69 61 6c 6c 79 20 | 63 72 65 61 74 69 6e 67 |itially |creating|
|00000770| 20 61 20 6d 69 6e 69 62 | 75 66 66 65 72 20 66 72 | a minib|uffer fr|
|00000780| 61 6d 65 2e 0a 59 6f 75 | 20 63 61 6e 20 73 65 74 |ame..You| can set|
|00000790| 20 74 68 69 73 20 69 6e | 20 79 6f 75 72 20 60 2e | this in| your `.|
|000007a0| 65 6d 61 63 73 27 20 66 | 69 6c 65 3b 20 66 6f 72 |emacs' f|ile; for|
|000007b0| 20 65 78 61 6d 70 6c 65 | 2c 0a 20 28 73 65 74 71 | example|,. (setq|
|000007c0| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 66 72 61 6d | minibuf|fer-fram|
|000007d0| 65 2d 61 6c 69 73 74 0a | 20 20 20 27 28 28 74 6f |e-alist.| '((to|
|000007e0| 70 20 2e 20 31 29 20 28 | 6c 65 66 74 20 2e 20 31 |p . 1) (|left . 1|
|000007f0| 29 20 28 77 69 64 74 68 | 20 2e 20 38 30 29 20 28 |) (width| . 80) (|
|00000800| 68 65 69 67 68 74 20 2e | 20 32 29 29 29 0a 50 61 |height .| 2))).Pa|
|00000810| 72 61 6d 65 74 65 72 73 | 20 73 70 65 63 69 66 69 |rameters| specifi|
|00000820| 65 64 20 68 65 72 65 20 | 73 75 70 65 72 73 65 64 |ed here |supersed|
|00000830| 65 20 74 68 65 20 76 61 | 6c 75 65 73 20 67 69 76 |e the va|lues giv|
|00000840| 65 6e 20 69 6e 0a 60 64 | 65 66 61 75 6c 74 2d 66 |en in.`d|efault-f|
|00000850| 72 61 6d 65 2d 61 6c 69 | 73 74 27 2e 1f 0a 28 64 |rame-ali|st'...(d|
|00000860| 65 66 76 61 72 20 6d 69 | 6e 69 62 75 66 66 65 72 |efvar mi|nibuffer|
|00000870| 2d 66 72 61 6d 65 2d 61 | 6c 69 73 74 20 28 71 75 |-frame-a|list (qu|
|00000880| 6f 74 65 20 28 28 77 69 | 64 74 68 20 2e 20 38 30 |ote ((wi|dth . 80|
|00000890| 29 20 28 68 65 69 67 68 | 74 20 2e 20 32 29 29 29 |) (heigh|t . 2)))|
|000008a0| 20 28 23 24 20 2e 20 31 | 38 35 36 29 29 0a 23 40 | (#$ . 1|856)).#@|
|000008b0| 32 39 33 20 41 6c 69 73 | 74 20 6f 66 20 66 72 61 |293 Alis|t of fra|
|000008c0| 6d 65 20 70 61 72 61 6d | 65 74 65 72 73 20 75 73 |me param|eters us|
|000008d0| 65 64 20 77 68 65 6e 20 | 63 72 65 61 74 69 6e 67 |ed when |creating|
|000008e0| 20 70 6f 70 2d 75 70 20 | 66 72 61 6d 65 73 2e 0a | pop-up |frames..|
|000008f0| 50 6f 70 2d 75 70 20 66 | 72 61 6d 65 73 20 61 72 |Pop-up f|rames ar|
|00000900| 65 20 75 73 65 64 20 66 | 6f 72 20 63 6f 6d 70 6c |e used f|or compl|
|00000910| 65 74 69 6f 6e 73 2c 20 | 68 65 6c 70 2c 20 61 6e |etions, |help, an|
|00000920| 64 20 74 68 65 20 6c 69 | 6b 65 2e 0a 54 68 69 73 |d the li|ke..This|
|00000930| 20 76 61 72 69 61 62 6c | 65 20 63 61 6e 20 62 65 | variabl|e can be|
|00000940| 20 73 65 74 20 69 6e 20 | 79 6f 75 72 20 69 6e 69 | set in |your ini|
|00000950| 74 20 66 69 6c 65 2c 20 | 6c 69 6b 65 20 74 68 69 |t file, |like thi|
|00000960| 73 3a 0a 20 20 28 73 65 | 74 71 20 70 6f 70 2d 75 |s:. (se|tq pop-u|
|00000970| 70 2d 66 72 61 6d 65 2d | 61 6c 69 73 74 20 27 28 |p-frame-|alist '(|
|00000980| 28 77 69 64 74 68 20 2e | 20 38 30 29 20 28 68 65 |(width .| 80) (he|
|00000990| 69 67 68 74 20 2e 20 32 | 30 29 29 29 0a 54 68 65 |ight . 2|0))).The|
|000009a0| 73 65 20 73 75 70 65 72 | 73 65 64 65 20 74 68 65 |se super|sede the|
|000009b0| 20 76 61 6c 75 65 73 20 | 67 69 76 65 6e 20 69 6e | values |given in|
|000009c0| 20 60 64 65 66 61 75 6c | 74 2d 66 72 61 6d 65 2d | `defaul|t-frame-|
|000009d0| 61 6c 69 73 74 27 2e 1f | 0a 28 64 65 66 76 61 72 |alist'..|.(defvar|
|000009e0| 20 70 6f 70 2d 75 70 2d | 66 72 61 6d 65 2d 61 6c | pop-up-|frame-al|
|000009f0| 69 73 74 20 6e 69 6c 20 | 28 23 24 20 2e 20 32 32 |ist nil |(#$ . 22|
|00000a00| 32 38 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |28)).(by|te-code |
|00000a10| 22 c0 11 c2 87 22 20 5b | 23 5b 6e 69 6c 20 22 c0 |"...." [|#[nil ".|
|00000a20| 09 21 87 22 20 5b 6d 61 | 6b 65 2d 66 72 61 6d 65 |.!." [ma|ke-frame|
|00000a30| 20 70 6f 70 2d 75 70 2d | 66 72 61 6d 65 2d 61 6c | pop-up-|frame-al|
|00000a40| 69 73 74 5d 20 32 5d 20 | 70 6f 70 2d 75 70 2d 66 |ist] 2] |pop-up-f|
|00000a50| 72 61 6d 65 2d 66 75 6e | 63 74 69 6f 6e 20 6e 69 |rame-fun|ction ni|
|00000a60| 6c 5d 20 31 29 0a 23 40 | 34 32 35 20 2a 41 6c 69 |l] 1).#@|425 *Ali|
|00000a70| 73 74 20 6f 66 20 66 72 | 61 6d 65 20 70 61 72 61 |st of fr|ame para|
|00000a80| 6d 65 74 65 72 73 20 75 | 73 65 64 20 77 68 65 6e |meters u|sed when|
|00000a90| 20 63 72 65 61 74 69 6e | 67 20 73 70 65 63 69 61 | creatin|g specia|
|00000aa0| 6c 20 66 72 61 6d 65 73 | 2e 0a 53 70 65 63 69 61 |l frames|..Specia|
|00000ab0| 6c 20 66 72 61 6d 65 73 | 20 61 72 65 20 75 73 65 |l frames| are use|
|00000ac0| 64 20 66 6f 72 20 62 75 | 66 66 65 72 73 20 77 68 |d for bu|ffers wh|
|00000ad0| 6f 73 65 20 6e 61 6d 65 | 73 20 61 72 65 20 69 6e |ose name|s are in|
|00000ae0| 0a 60 73 70 65 63 69 61 | 6c 2d 64 69 73 70 6c 61 |.`specia|l-displa|
|00000af0| 79 2d 62 75 66 66 65 72 | 2d 6e 61 6d 65 73 27 20 |y-buffer|-names' |
|00000b00| 61 6e 64 20 66 6f 72 20 | 62 75 66 66 65 72 73 20 |and for |buffers |
|00000b10| 77 68 6f 73 65 20 6e 61 | 6d 65 73 20 6d 61 74 63 |whose na|mes matc|
|00000b20| 68 0a 6f 6e 65 20 6f 66 | 20 74 68 65 20 72 65 67 |h.one of| the reg|
|00000b30| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 73 |ular exp|ressions|
|00000b40| 20 69 6e 20 60 73 70 65 | 63 69 61 6c 2d 64 69 73 | in `spe|cial-dis|
|00000b50| 70 6c 61 79 2d 72 65 67 | 65 78 70 73 27 2e 0a 54 |play-reg|exps'..T|
|00000b60| 68 69 73 20 76 61 72 69 | 61 62 6c 65 20 63 61 6e |his vari|able can|
|00000b70| 20 62 65 20 73 65 74 20 | 69 6e 20 79 6f 75 72 20 | be set |in your |
|00000b80| 69 6e 69 74 20 66 69 6c | 65 2c 20 6c 69 6b 65 20 |init fil|e, like |
|00000b90| 74 68 69 73 3a 0a 20 20 | 28 73 65 74 71 20 73 70 |this:. |(setq sp|
|00000ba0| 65 63 69 61 6c 2d 64 69 | 73 70 6c 61 79 2d 66 72 |ecial-di|splay-fr|
|00000bb0| 61 6d 65 2d 61 6c 69 73 | 74 20 27 28 28 77 69 64 |ame-alis|t '((wid|
|00000bc0| 74 68 20 2e 20 38 30 29 | 20 28 68 65 69 67 68 74 |th . 80)| (height|
|00000bd0| 20 2e 20 32 30 29 29 29 | 0a 54 68 65 73 65 20 73 | . 20)))|.These s|
|00000be0| 75 70 65 72 73 65 64 65 | 20 74 68 65 20 76 61 6c |upersede| the val|
|00000bf0| 75 65 73 20 67 69 76 65 | 6e 20 69 6e 20 60 64 65 |ues give|n in `de|
|00000c00| 66 61 75 6c 74 2d 66 72 | 61 6d 65 2d 61 6c 69 73 |fault-fr|ame-alis|
|00000c10| 74 27 2e 1f 0a 28 64 65 | 66 76 61 72 20 73 70 65 |t'...(de|fvar spe|
|00000c20| 63 69 61 6c 2d 64 69 73 | 70 6c 61 79 2d 66 72 61 |cial-dis|play-fra|
|00000c30| 6d 65 2d 61 6c 69 73 74 | 20 28 71 75 6f 74 65 20 |me-alist| (quote |
|00000c40| 28 28 68 65 69 67 68 74 | 20 2e 20 31 34 29 20 28 |((height| . 14) (|
|00000c50| 77 69 64 74 68 20 2e 20 | 38 30 29 20 28 75 6e 73 |width . |80) (uns|
|00000c60| 70 6c 69 74 74 61 62 6c | 65 20 2e 20 74 29 29 29 |plittabl|e . t)))|
|00000c70| 20 28 23 24 20 2e 20 2d | 32 36 36 38 29 29 0a 28 | (#$ . -|2668)).(|
|00000c80| 64 65 66 61 6c 69 61 73 | 20 27 73 70 65 63 69 61 |defalias| 'specia|
|00000c90| 6c 2d 64 69 73 70 6c 61 | 79 2d 70 6f 70 75 70 2d |l-displa|y-popup-|
|00000ca0| 66 72 61 6d 65 20 23 5b | 28 62 75 66 66 65 72 20 |frame #[|(buffer |
|00000cb0| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 73 29 20 |&optiona|l args) |
|00000cc0| 22 08 83 12 00 08 40 39 | 83 12 00 c1 08 40 5c 6e |".....@9|.....@\n|
|00000cd0| 08 41 23 87 c3 5c 6e c4 | 5c 22 89 1d 83 2f 00 c6 |.A#..\n.|\".../..|
|00000ce0| 0d 21 1e 07 c8 0e 07 21 | 88 c9 0e 07 21 88 0d 29 |.!.....!|....!..)|
|00000cf0| 82 4d 00 ca cb 08 0e 5c | 66 5c 22 21 1e 07 cd ce |.M.....\|f\"!....|
|00000d00| 0e 07 21 5c 6e 5c 22 88 | cf ce 0e 07 21 c4 5c 22 |..!\n\".|....!.\"|
|00000d10| 88 ce 0e 07 21 29 29 87 | 22 20 5b 61 72 67 73 20 |....!)).|" [args |
|00000d20| 61 70 70 6c 79 20 62 75 | 66 66 65 72 20 67 65 74 |apply bu|ffer get|
|00000d30| 2d 62 75 66 66 65 72 2d | 77 69 6e 64 6f 77 20 74 |-buffer-|window t|
|00000d40| 20 77 69 6e 64 6f 77 20 | 77 69 6e 64 6f 77 2d 66 | window |window-f|
|00000d50| 72 61 6d 65 20 66 72 61 | 6d 65 20 6d 61 6b 65 2d |rame fra|me make-|
|00000d60| 66 72 61 6d 65 2d 76 69 | 73 69 62 6c 65 20 72 61 |frame-vi|sible ra|
|00000d70| 69 73 65 2d 66 72 61 6d | 65 20 6d 61 6b 65 2d 66 |ise-fram|e make-f|
|00000d80| 72 61 6d 65 20 61 70 70 | 65 6e 64 20 73 70 65 63 |rame app|end spec|
|00000d90| 69 61 6c 2d 64 69 73 70 | 6c 61 79 2d 66 72 61 6d |ial-disp|lay-fram|
|00000da0| 65 2d 61 6c 69 73 74 20 | 73 65 74 2d 77 69 6e 64 |e-alist |set-wind|
|00000db0| 6f 77 2d 62 75 66 66 65 | 72 20 66 72 61 6d 65 2d |ow-buffe|r frame-|
|00000dc0| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00000dd0| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 64 65 64 69 63 |set-wind|ow-dedic|
|00000de0| 61 74 65 64 2d 70 5d 20 | 35 5d 29 0a 28 64 65 66 |ated-p] |5]).(def|
|00000df0| 61 6c 69 61 73 20 27 68 | 61 6e 64 6c 65 2d 64 65 |alias 'h|andle-de|
|00000e00| 6c 65 74 65 2d 66 72 61 | 6d 65 20 23 5b 28 65 76 |lete-fra|me #[(ev|
|00000e10| 65 6e 74 29 20 22 08 89 | 18 41 40 29 89 19 40 29 |ent) "..|.A@)..@)|
|00000e20| c2 c3 20 1c 1d 1e 06 5c | 66 83 2e 00 c7 5c 66 40 |.. ....\|f....\f@|
|00000e30| 21 83 27 00 5c 66 40 0e | 06 3d 84 27 00 0d 54 15 |!.'.\f@.|.=.'..T.|
|00000e40| 5c 66 41 89 14 84 15 00 | 0d c2 56 83 3c 00 c8 0e |\fA.....|..V.<...|
|00000e50| 06 c9 5c 22 82 3e 00 ca | 20 2b 87 22 20 5b 65 76 |..\".>..| +." [ev|
|00000e60| 65 6e 74 20 70 6f 73 69 | 74 69 6f 6e 20 30 20 66 |ent posi|tion 0 f|
|00000e70| 72 61 6d 65 2d 6c 69 73 | 74 20 74 61 69 6c 20 69 |rame-lis|t tail i|
|00000e80| 20 66 72 61 6d 65 20 66 | 72 61 6d 65 2d 76 69 73 | frame f|rame-vis|
|00000e90| 69 62 6c 65 2d 70 20 64 | 65 6c 65 74 65 2d 66 72 |ible-p d|elete-fr|
|00000ea0| 61 6d 65 20 74 20 73 61 | 76 65 2d 62 75 66 66 65 |ame t sa|ve-buffe|
|00000eb0| 72 73 2d 6b 69 6c 6c 2d | 65 6d 61 63 73 5d 20 34 |rs-kill-|emacs] 4|
|00000ec0| 20 6e 69 6c 20 22 65 22 | 5d 29 0a 28 62 79 74 65 | nil "e"|]).(byte|
|00000ed0| 2d 63 6f 64 65 20 22 c0 | c1 21 84 08 00 c2 11 c1 |-code ".|.!......|
|00000ee0| 0b 42 13 c4 0b 42 13 c0 | c5 21 84 18 00 c2 15 c5 |.B...B..|.!......|
|00000ef0| 0b 42 13 c2 87 22 20 5b | 62 6f 75 6e 64 70 20 66 |.B..." [|boundp f|
|00000f00| 72 61 6d 65 2d 69 6e 69 | 74 69 61 6c 2d 66 72 61 |rame-ini|tial-fra|
|00000f10| 6d 65 20 6e 69 6c 20 63 | 75 72 72 65 6e 74 2d 6c |me nil c|urrent-l|
|00000f20| 6f 61 64 2d 6c 69 73 74 | 20 66 72 61 6d 65 2d 69 |oad-list| frame-i|
|00000f30| 6e 69 74 69 61 6c 2d 66 | 72 61 6d 65 2d 61 6c 69 |nitial-f|rame-ali|
|00000f40| 73 74 20 66 72 61 6d 65 | 2d 69 6e 69 74 69 61 6c |st frame|-initial|
|00000f50| 2d 67 65 6f 6d 65 74 72 | 79 2d 61 72 67 75 6d 65 |-geometr|y-argume|
|00000f60| 6e 74 73 5d 20 32 29 0a | 28 64 65 66 61 6c 69 61 |nts] 2).|(defalia|
|00000f70| 73 20 27 66 72 61 6d 65 | 2d 69 6e 69 74 69 61 6c |s 'frame|-initial|
|00000f80| 69 7a 65 20 23 5b 6e 69 | 6c 20 22 08 83 54 00 09 |ize #[ni|l "..T..|
|00000f90| 84 54 00 08 c2 3d 84 54 | 00 c3 14 c5 0e 06 c7 20 |.T...=.T|....... |
|00000fa0| 5c 22 84 4a 00 c8 0e 09 | 0e 5c 6e 5c 22 16 0b cc |\".J....|.\n\"...|
|00000fb0| 0e 0b 9e 84 2e 00 cd 0e | 0b 42 16 0b ce 0e 0b 9e |........|.B......|
|00000fc0| 84 3b 00 cf 0e 0b 42 16 | 0b d0 0e 09 21 89 16 11 |.;....B.|....!...|
|00000fd0| 16 12 d3 0e 09 21 16 09 | d4 0e 06 21 88 d5 89 16 |.....!..|...!....|
|00000fe0| 06 87 08 c2 3d 86 68 00 | d6 d7 21 83 64 00 d7 82 |....=.h.|..!.d...|
|00000ff0| 65 00 d8 89 16 19 87 22 | 20 5b 77 69 6e 64 6f 77 |e......"| [window|
|00001000| 2d 73 79 73 74 65 6d 20 | 6e 6f 6e 69 6e 74 65 72 |-system |noninter|
|00001010| 61 63 74 69 76 65 20 70 | 63 20 73 70 65 63 69 61 |active p|c specia|
|00001020| 6c 2d 64 69 73 70 6c 61 | 79 2d 70 6f 70 75 70 2d |l-displa|y-popup-|
|00001030| 66 72 61 6d 65 20 73 70 | 65 63 69 61 6c 2d 64 69 |frame sp|ecial-di|
|00001040| 73 70 6c 61 79 2d 66 75 | 6e 63 74 69 6f 6e 20 64 |splay-fu|nction d|
|00001050| 65 6c 71 20 74 65 72 6d | 69 6e 61 6c 2d 66 72 61 |elq term|inal-fra|
|00001060| 6d 65 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 66 72 |me minib|uffer-fr|
|00001070| 61 6d 65 2d 6c 69 73 74 | 20 61 70 70 65 6e 64 20 |ame-list| append |
|00001080| 69 6e 69 74 69 61 6c 2d | 66 72 61 6d 65 2d 61 6c |initial-|frame-al|
|00001090| 69 73 74 20 64 65 66 61 | 75 6c 74 2d 66 72 61 6d |ist defa|ult-fram|
|000010a0| 65 2d 61 6c 69 73 74 20 | 66 72 61 6d 65 2d 69 6e |e-alist |frame-in|
|000010b0| 69 74 69 61 6c 2d 66 72 | 61 6d 65 2d 61 6c 69 73 |itial-fr|ame-alis|
|000010c0| 74 20 76 65 72 74 69 63 | 61 6c 2d 73 63 72 6f 6c |t vertic|al-scrol|
|000010d0| 6c 2d 62 61 72 73 20 28 | 76 65 72 74 69 63 61 6c |l-bars (|vertical|
|000010e0| 2d 73 63 72 6f 6c 6c 2d | 62 61 72 73 20 2e 20 74 |-scroll-|bars . t|
|000010f0| 29 20 68 6f 72 69 7a 6f | 6e 74 61 6c 2d 73 63 72 |) horizo|ntal-scr|
|00001100| 6f 6c 6c 2d 62 61 72 73 | 20 28 68 6f 72 69 7a 6f |oll-bars| (horizo|
|00001110| 6e 74 61 6c 2d 73 63 72 | 6f 6c 6c 2d 62 61 72 73 |ntal-scr|oll-bars|
|00001120| 20 2e 20 74 29 20 6d 61 | 6b 65 2d 66 72 61 6d 65 | . t) ma|ke-frame|
|00001130| 20 66 72 61 6d 65 2d 69 | 6e 69 74 69 61 6c 2d 66 | frame-i|nitial-f|
|00001140| 72 61 6d 65 20 64 65 66 | 61 75 6c 74 2d 6d 69 6e |rame def|ault-min|
|00001150| 69 62 75 66 66 65 72 2d | 66 72 61 6d 65 20 66 72 |ibuffer-|frame fr|
|00001160| 61 6d 65 2d 72 65 6d 6f | 76 65 2d 67 65 6f 6d 65 |ame-remo|ve-geome|
|00001170| 74 72 79 2d 70 61 72 61 | 6d 73 20 64 65 6c 65 74 |try-para|ms delet|
|00001180| 65 2d 66 72 61 6d 65 20 | 6e 69 6c 20 66 62 6f 75 |e-frame |nil fbou|
|00001190| 6e 64 70 20 6d 61 6b 65 | 2d 74 65 72 6d 69 6e 61 |ndp make|-termina|
|000011a0| 6c 2d 66 72 61 6d 65 20 | 23 5b 28 70 61 72 61 6d |l-frame |#[(param|
|000011b0| 65 74 65 72 73 29 20 22 | c0 c1 21 87 22 20 5b 65 |eters) "|..!." [e|
|000011c0| 72 72 6f 72 20 22 43 61 | 6e 27 74 20 63 72 65 61 |rror "Ca|n't crea|
|000011d0| 74 65 20 6d 75 6c 74 69 | 70 6c 65 20 66 72 61 6d |te multi|ple fram|
|000011e0| 65 73 20 77 69 74 68 6f | 75 74 20 61 20 77 69 6e |es witho|ut a win|
|000011f0| 64 6f 77 20 73 79 73 74 | 65 6d 22 5d 20 32 5d 20 |dow syst|em"] 2] |
|00001200| 66 72 61 6d 65 2d 63 72 | 65 61 74 69 6f 6e 2d 66 |frame-cr|eation-f|
|00001210| 75 6e 63 74 69 6f 6e 5d | 20 33 5d 29 0a 28 64 65 |unction]| 3]).(de|
|00001220| 66 61 6c 69 61 73 20 27 | 66 72 61 6d 65 2d 6e 6f |falias '|frame-no|
|00001230| 74 69 63 65 2d 75 73 65 | 72 2d 73 65 74 74 69 6e |tice-use|r-settin|
|00001240| 67 73 20 23 5b 6e 69 6c | 20 22 c0 c1 21 83 26 00 |gs #[nil| "..!.&.|
|00001250| c2 0b 9e 89 1c 83 17 00 | 5c 66 41 c5 3d 3f 11 82 |........|\fA.=?..|
|00001260| 25 00 c2 09 83 20 00 c6 | 82 21 00 c5 42 0b 42 13 |%.... ..|.!..B.B.|
|00001270| 29 70 1e 07 c8 0e 09 21 | 83 c5 01 ca 0e 0b 9e 86 |)p.....!|........|
|00001280| 3e 00 ca 0b 9e 86 3e 00 | cc 41 cd 3d 84 1f 01 ce |>.....>.|.A.=....|
|00001290| 89 1e 0f 1e 10 d1 d2 0e | 09 21 9e 41 84 5b 00 d3 |........|.!.A.[..|
|000012a0| c6 21 88 82 4a 00 d2 0e | 09 21 16 10 d4 0e 15 9e |.!..J...|.!......|
|000012b0| 84 72 00 d6 d4 0e 10 9e | 0e 10 5c 22 16 10 d7 0e |.r......|..\"....|
|000012c0| 0b 0b 0e 10 ce 24 16 10 | d8 d6 d9 0e 10 9e 0e 10 |.....$..|........|
|000012d0| 5c 22 42 16 10 da 0e 1b | 9e 83 96 00 dc da 0e 10 |\"B.....|........|
|000012e0| 5c 22 16 10 dd 0e 1b 9e | 83 a4 00 dc dd 0e 10 5c |\"......|.......\|
|000012f0| 22 16 10 de 0e 1b 9e 83 | b2 00 dc de 0e 10 5c 22 |".......|......\"|
|00001300| 16 10 df 0e 1b 9e 83 c0 | 00 dc df 0e 10 5c 22 16 |........|.....\".|
|00001310| 10 e0 d7 0e 1b e1 0e 10 | 23 21 16 0f d6 0e 09 e2 |........|#!......|
|00001320| 20 5c 22 84 d8 00 e3 ce | 21 88 e4 e5 21 89 1e 26 | \".....|!...!..&|
|00001330| 84 e9 00 0e 27 0e 09 3d | 83 0d 01 e4 e8 21 86 f1 |....'..=|.....!..|
|00001340| 00 e2 20 40 1e 29 ea 0e | 29 21 1e 2b 0e 27 0e 09 |.. @.)..|)!.+.'..|
|00001350| 3d 83 06 01 0e 29 16 27 | ec ed 0e 26 5c 22 88 2a |=....).'|...&\".*|
|00001360| 29 ee 0e 09 0e 0f 5c 22 | 88 ef 0e 09 cd 5c 22 88 |).....\"|.....\".|
|00001370| 2a 82 c5 01 ce 89 89 1e | 30 1e 31 1e 32 d7 0e 0b |*.......|0.1.2...|
|00001380| 0b 5c 22 16 31 da 0e 1b | 9e 83 3d 01 dc da 0e 31 |.\".1...|..=....1|
|00001390| 5c 22 16 31 dd 0e 1b 9e | 83 4b 01 dc dd 0e 31 5c |\".1....|.K....1\|
|000013a0| 22 16 31 de 0e 1b 9e 83 | 59 01 dc de 0e 31 5c 22 |".1.....|Y....1\"|
|000013b0| 16 31 df 0e 1b 9e 83 67 | 01 dc df 0e 31 5c 22 16 |.1.....g|....1\".|
|000013c0| 31 0e 31 89 16 30 83 ac | 01 ce 89 1e 33 1e 34 0e |1.1..0..|....3.4.|
|000013d0| 30 40 40 0e 15 9e 16 33 | 0e 30 40 40 0e 31 9e 41 |0@@....3|.0@@.1.A|
|000013e0| 16 34 0e 33 83 96 01 0e | 33 41 0e 34 3d 84 a2 01 |.4.3....|3A.4=...|
|000013f0| 0e 30 40 40 0e 34 42 0e | 32 42 16 32 2a 0e 30 41 |.0@@.4B.|2B.2*.0A|
|00001400| 89 16 30 84 6f 01 0e 32 | 9f 16 32 f5 0e 09 0e 32 |..0.o..2|..2....2|
|00001410| 5c 22 88 f6 0e 32 9e 83 | c4 01 f7 0e 09 21 88 2b |\"...2..|.....!.+|
|00001420| 0e 07 71 88 ce 89 16 09 | 29 87 22 20 5b 62 6f 75 |..q.....|)." [bou|
|00001430| 6e 64 70 20 6d 65 6e 75 | 2d 62 61 72 2d 6d 6f 64 |ndp menu|-bar-mod|
|00001440| 65 20 6d 65 6e 75 2d 62 | 61 72 2d 6c 69 6e 65 73 |e menu-b|ar-lines|
|00001450| 20 64 65 66 61 75 6c 74 | 2d 66 72 61 6d 65 2d 61 | default|-frame-a|
|00001460| 6c 69 73 74 20 64 65 66 | 61 75 6c 74 20 30 20 31 |list def|ault 0 1|
|00001470| 20 6f 6c 64 2d 62 75 66 | 66 65 72 20 66 72 61 6d | old-buf|fer fram|
|00001480| 65 2d 6c 69 76 65 2d 70 | 20 66 72 61 6d 65 2d 69 |e-live-p| frame-i|
|00001490| 6e 69 74 69 61 6c 2d 66 | 72 61 6d 65 20 6d 69 6e |nitial-f|rame min|
|000014a0| 69 62 75 66 66 65 72 20 | 69 6e 69 74 69 61 6c 2d |ibuffer |initial-|
|000014b0| 66 72 61 6d 65 2d 61 6c | 69 73 74 20 28 6d 69 6e |frame-al|ist (min|
|000014c0| 69 62 75 66 66 65 72 20 | 2e 20 74 29 20 74 20 6e |ibuffer |. t) t n|
|000014d0| 69 6c 20 6e 65 77 20 70 | 61 72 6d 73 20 76 69 73 |il new p|arms vis|
|000014e0| 69 62 69 6c 69 74 79 20 | 66 72 61 6d 65 2d 70 61 |ibility |frame-pa|
|000014f0| 72 61 6d 65 74 65 72 73 | 20 73 6c 65 65 70 2d 66 |rameters| sleep-f|
|00001500| 6f 72 20 6e 61 6d 65 20 | 66 72 61 6d 65 2d 69 6e |or name |frame-in|
|00001510| 69 74 69 61 6c 2d 66 72 | 61 6d 65 2d 61 6c 69 73 |itial-fr|ame-alis|
|00001520| 74 20 64 65 6c 71 20 61 | 70 70 65 6e 64 20 28 72 |t delq a|ppend (r|
|00001530| 65 76 65 72 73 65 29 20 | 72 65 76 65 72 73 65 20 |everse) |reverse |
|00001540| 68 65 69 67 68 74 20 66 | 72 61 6d 65 2d 69 6e 69 |height f|rame-ini|
|00001550| 74 69 61 6c 2d 67 65 6f | 6d 65 74 72 79 2d 61 72 |tial-geo|metry-ar|
|00001560| 67 75 6d 65 6e 74 73 20 | 66 72 61 6d 65 2d 64 65 |guments |frame-de|
|00001570| 6c 65 74 65 2d 61 6c 6c | 20 77 69 64 74 68 20 6c |lete-all| width l|
|00001580| 65 66 74 20 74 6f 70 20 | 6d 61 6b 65 2d 66 72 61 |eft top |make-fra|
|00001590| 6d 65 20 28 28 75 73 65 | 72 2d 73 69 7a 65 20 2e |me ((use|r-size .|
|000015a0| 20 74 29 20 28 75 73 65 | 72 2d 70 6f 73 69 74 69 | t) (use|r-positi|
|000015b0| 6f 6e 20 2e 20 74 29 29 | 20 6d 69 6e 69 62 75 66 |on . t))| minibuf|
|000015c0| 66 65 72 2d 66 72 61 6d | 65 2d 6c 69 73 74 20 6d |fer-fram|e-list m|
|000015d0| 61 6b 65 2d 69 6e 69 74 | 69 61 6c 2d 6d 69 6e 69 |ake-init|ial-mini|
|000015e0| 62 75 66 66 65 72 2d 66 | 72 61 6d 65 20 66 69 6c |buffer-f|rame fil|
|000015f0| 74 65 72 65 64 2d 66 72 | 61 6d 65 2d 6c 69 73 74 |tered-fr|ame-list|
|00001600| 20 23 5b 28 66 72 61 6d | 65 29 20 22 08 09 3d 3f | #[(fram|e) "..=?|
|00001610| 85 0e 00 c2 c3 08 21 21 | 09 3d 87 22 20 5b 66 72 |......!!|.=." [fr|
|00001620| 61 6d 65 20 66 72 61 6d | 65 2d 69 6e 69 74 69 61 |ame fram|e-initia|
|00001630| 6c 2d 66 72 61 6d 65 20 | 77 69 6e 64 6f 77 2d 66 |l-frame |window-f|
|00001640| 72 61 6d 65 20 6d 69 6e | 69 62 75 66 66 65 72 2d |rame min|ibuffer-|
|00001650| 77 69 6e 64 6f 77 5d 20 | 33 5d 20 75 73 65 72 73 |window] |3] users|
|00001660| 2d 6f 66 2d 69 6e 69 74 | 69 61 6c 20 64 65 66 61 |-of-init|ial defa|
|00001670| 75 6c 74 2d 6d 69 6e 69 | 62 75 66 66 65 72 2d 66 |ult-mini|buffer-f|
|00001680| 72 61 6d 65 20 23 5b 28 | 66 72 61 6d 65 29 20 22 |rame #[(|frame) "|
|00001690| c0 c1 5c 6e 21 9e 41 c3 | 3d 87 22 20 5b 6d 69 6e |..\n!.A.|=." [min|
|000016a0| 69 62 75 66 66 65 72 20 | 66 72 61 6d 65 2d 70 61 |ibuffer |frame-pa|
|000016b0| 72 61 6d 65 74 65 72 73 | 20 66 72 61 6d 65 20 6f |rameters| frame o|
|000016c0| 6e 6c 79 5d 20 33 5d 20 | 6e 65 77 2d 73 75 72 72 |nly] 3] |new-surr|
|000016d0| 6f 67 61 74 65 20 6d 69 | 6e 69 62 75 66 66 65 72 |ogate mi|nibuffer|
|000016e0| 2d 77 69 6e 64 6f 77 20 | 6e 65 77 2d 6d 69 6e 69 |-window |new-mini|
|000016f0| 62 75 66 66 65 72 20 6d | 61 70 63 61 72 20 23 5b |buffer m|apcar #[|
|00001700| 28 66 72 61 6d 65 29 20 | 22 c0 09 c2 0b 42 43 5c |(frame) |"....BC\|
|00001710| 22 87 22 20 5b 6d 6f 64 | 69 66 79 2d 66 72 61 6d |"." [mod|ify-fram|
|00001720| 65 2d 70 61 72 61 6d 65 | 74 65 72 73 20 66 72 61 |e-parame|ters fra|
|00001730| 6d 65 20 6d 69 6e 69 62 | 75 66 66 65 72 20 6e 65 |me minib|uffer ne|
|00001740| 77 2d 6d 69 6e 69 62 75 | 66 66 65 72 5d 20 34 5d |w-minibu|ffer] 4]|
|00001750| 20 72 65 64 69 72 65 63 | 74 2d 66 72 61 6d 65 2d | redirec|t-frame-|
|00001760| 66 6f 63 75 73 20 64 65 | 6c 65 74 65 2d 66 72 61 |focus de|lete-fra|
|00001770| 6d 65 20 74 61 69 6c 20 | 61 6c 6c 70 61 72 6d 73 |me tail |allparms|
|00001780| 20 6e 65 77 70 61 72 6d | 73 20 6f 6c 64 76 61 6c | newparm|s oldval|
|00001790| 20 6e 65 77 76 61 6c 20 | 6d 6f 64 69 66 79 2d 66 | newval |modify-f|
|000017a0| 72 61 6d 65 2d 70 61 72 | 61 6d 65 74 65 72 73 20 |rame-par|ameters |
|000017b0| 66 6f 6e 74 20 66 72 61 | 6d 65 2d 75 70 64 61 74 |font fra|me-updat|
|000017c0| 65 2d 66 61 63 65 73 5d | 20 36 5d 29 0a 28 64 65 |e-faces]| 6]).(de|
|000017d0| 66 61 6c 69 61 73 20 27 | 6d 61 6b 65 2d 69 6e 69 |falias '|make-ini|
|000017e0| 74 69 61 6c 2d 6d 69 6e | 69 62 75 66 66 65 72 2d |tial-min|ibuffer-|
|000017f0| 66 72 61 6d 65 20 23 5b | 28 64 69 73 70 6c 61 79 |frame #[|(display|
|00001800| 29 20 22 c0 09 c2 5c 22 | 1b 5c 66 83 10 00 c5 5c |) "...\"|.\f....\|
|00001810| 66 0b 5c 22 82 13 00 c6 | 0b 21 29 87 22 20 5b 61 |f.\"....|.!)." [a|
|00001820| 70 70 65 6e 64 20 6d 69 | 6e 69 62 75 66 66 65 72 |ppend mi|nibuffer|
|00001830| 2d 66 72 61 6d 65 2d 61 | 6c 69 73 74 20 28 28 6d |-frame-a|list ((m|
|00001840| 69 6e 69 62 75 66 66 65 | 72 20 2e 20 6f 6e 6c 79 |inibuffe|r . only|
|00001850| 29 29 20 70 61 72 6d 73 | 20 64 69 73 70 6c 61 79 |)) parms| display|
|00001860| 20 6d 61 6b 65 2d 66 72 | 61 6d 65 2d 6f 6e 2d 64 | make-fr|ame-on-d|
|00001870| 69 73 70 6c 61 79 20 6d | 61 6b 65 2d 66 72 61 6d |isplay m|ake-fram|
|00001880| 65 5d 20 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |e] 3]).(|defalias|
|00001890| 20 27 66 72 61 6d 65 2d | 64 65 6c 65 74 65 2d 61 | 'frame-|delete-a|
|000018a0| 6c 6c 20 23 5b 28 6b 65 | 79 20 61 6c 69 73 74 29 |ll #[(ke|y alist)|
|000018b0| 20 22 c0 09 21 89 11 89 | 1a 83 1f 00 5c 6e 40 40 | "..!...|....\n@@|
|000018c0| 0b 3d 83 18 00 c4 5c 6e | 40 09 5c 22 11 5c 6e 41 |.=....\n|@.\".\nA|
|000018d0| 89 12 84 5c 6e 00 09 29 | 87 22 20 5b 63 6f 70 79 |...\n..)|." [copy|
|000018e0| 2d 73 65 71 75 65 6e 63 | 65 20 61 6c 69 73 74 20 |-sequenc|e alist |
|000018f0| 74 61 69 6c 20 6b 65 79 | 20 64 65 6c 71 5d 20 34 |tail key| delq] 4|
|00001900| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 65 |]).(defa|lias 'ge|
|00001910| 74 2d 6f 74 68 65 72 2d | 66 72 61 6d 65 20 23 5b |t-other-|frame #[|
|00001920| 6e 69 6c 20 22 c0 c1 20 | 21 c1 20 9a 83 0d 00 c2 |nil ".. |!. .....|
|00001930| 20 87 c0 c1 20 21 87 22 | 20 5b 6e 65 78 74 2d 66 | ... !."| [next-f|
|00001940| 72 61 6d 65 20 73 65 6c | 65 63 74 65 64 2d 66 72 |rame sel|ected-fr|
|00001950| 61 6d 65 20 6d 61 6b 65 | 2d 66 72 61 6d 65 5d 20 |ame make|-frame] |
|00001960| 33 5d 29 0a 23 40 36 31 | 20 53 65 6c 65 63 74 20 |3]).#@61| Select |
|00001970| 74 68 65 20 6e 65 78 74 | 20 77 69 6e 64 6f 77 2c |the next| window,|
|00001980| 20 72 65 67 61 72 64 6c | 65 73 73 20 6f 66 20 77 | regardl|ess of w|
|00001990| 68 69 63 68 20 66 72 61 | 6d 65 20 69 74 20 69 73 |hich fra|me it is|
|000019a0| 20 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 | on...(d|efalias |
|000019b0| 27 6e 65 78 74 2d 6d 75 | 6c 74 69 66 72 61 6d 65 |'next-mu|ltiframe|
|000019c0| 2d 77 69 6e 64 6f 77 20 | 23 5b 6e 69 6c 20 22 c0 |-window |#[nil ".|
|000019d0| c1 c2 20 c3 20 c4 56 c5 | 23 21 87 22 20 5b 73 65 |.. . .V.|#!." [se|
|000019e0| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 6e 65 78 74 |lect-win|dow next|
|000019f0| 2d 77 69 6e 64 6f 77 20 | 73 65 6c 65 63 74 65 64 |-window |selected|
|00001a00| 2d 77 69 6e 64 6f 77 20 | 6d 69 6e 69 62 75 66 66 |-window |minibuff|
|00001a10| 65 72 2d 64 65 70 74 68 | 20 30 20 74 5d 20 35 20 |er-depth| 0 t] 5 |
|00001a20| 28 23 24 20 2e 20 36 35 | 30 35 29 20 6e 69 6c 5d |(#$ . 65|05) nil]|
|00001a30| 29 0a 23 40 36 35 20 53 | 65 6c 65 63 74 20 74 68 |).#@65 S|elect th|
|00001a40| 65 20 70 72 65 76 69 6f | 75 73 20 77 69 6e 64 6f |e previo|us windo|
|00001a50| 77 2c 20 72 65 67 61 72 | 64 6c 65 73 73 20 6f 66 |w, regar|dless of|
|00001a60| 20 77 68 69 63 68 20 66 | 72 61 6d 65 20 69 74 20 | which f|rame it |
|00001a70| 69 73 20 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |is on...|(defalia|
|00001a80| 73 20 27 70 72 65 76 69 | 6f 75 73 2d 6d 75 6c 74 |s 'previ|ous-mult|
|00001a90| 69 66 72 61 6d 65 2d 77 | 69 6e 64 6f 77 20 23 5b |iframe-w|indow #[|
|00001aa0| 6e 69 6c 20 22 c0 c1 c2 | 20 c3 20 c4 56 c5 23 21 |nil "...| . .V.#!|
|00001ab0| 87 22 20 5b 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |." [sele|ct-windo|
|00001ac0| 77 20 70 72 65 76 69 6f | 75 73 2d 77 69 6e 64 6f |w previo|us-windo|
|00001ad0| 77 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |w select|ed-windo|
|00001ae0| 77 20 6d 69 6e 69 62 75 | 66 66 65 72 2d 64 65 70 |w minibu|ffer-dep|
|00001af0| 74 68 20 30 20 74 5d 20 | 35 20 28 23 24 20 2e 20 |th 0 t] |5 (#$ . |
|00001b00| 36 37 31 31 29 20 6e 69 | 6c 5d 29 0a 23 40 31 31 |6711) ni|l]).#@11|
|00001b10| 33 20 4d 61 6b 65 20 61 | 20 66 72 61 6d 65 20 6f |3 Make a| frame o|
|00001b20| 6e 20 64 69 73 70 6c 61 | 79 20 44 49 53 50 4c 41 |n displa|y DISPLA|
|00001b30| 59 2e 0a 54 68 65 20 6f | 70 74 69 6f 6e 61 6c 20 |Y..The o|ptional |
|00001b40| 73 65 63 6f 6e 64 20 61 | 72 67 75 6d 65 6e 74 20 |second a|rgument |
|00001b50| 50 41 52 41 4d 45 54 45 | 52 53 20 73 70 65 63 69 |PARAMETE|RS speci|
|00001b60| 66 69 65 73 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 |fies add|itional |
|00001b70| 66 72 61 6d 65 20 70 61 | 72 61 6d 65 74 65 72 73 |frame pa|rameters|
|00001b80| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |...(defa|lias 'ma|
|00001b90| 6b 65 2d 66 72 61 6d 65 | 2d 6f 6e 2d 64 69 73 70 |ke-frame|-on-disp|
|00001ba0| 6c 61 79 20 23 5b 28 64 | 69 73 70 6c 61 79 20 26 |lay #[(d|isplay &|
|00001bb0| 6f 70 74 69 6f 6e 61 6c | 20 70 61 72 61 6d 65 74 |optional| paramet|
|00001bc0| 65 72 73 29 20 22 c0 c1 | 09 42 5c 6e 42 21 87 22 |ers) "..|.B\nB!."|
|00001bd0| 20 5b 6d 61 6b 65 2d 66 | 72 61 6d 65 20 64 69 73 | [make-f|rame dis|
|00001be0| 70 6c 61 79 20 70 61 72 | 61 6d 65 74 65 72 73 5d |play par|ameters]|
|00001bf0| 20 33 20 28 23 24 20 2e | 20 36 39 33 30 29 20 22 | 3 (#$ .| 6930) "|
|00001c00| 73 4d 61 6b 65 20 66 72 | 61 6d 65 20 6f 6e 20 64 |sMake fr|ame on d|
|00001c10| 69 73 70 6c 61 79 3a 20 | 22 5d 29 0a 23 40 37 34 |isplay: |"]).#@74|
|00001c20| 20 4d 61 6b 65 20 61 20 | 6e 65 77 20 66 72 61 6d | Make a |new fram|
|00001c30| 65 2c 20 61 6e 64 20 73 | 65 6c 65 63 74 20 69 74 |e, and s|elect it|
|00001c40| 20 69 66 20 74 68 65 20 | 74 65 72 6d 69 6e 61 6c | if the |terminal|
|00001c50| 20 64 69 73 70 6c 61 79 | 73 20 6f 6e 6c 79 20 6f | display|s only o|
|00001c60| 6e 65 20 66 72 61 6d 65 | 2e 1f 0a 28 64 65 66 61 |ne frame|...(defa|
|00001c70| 6c 69 61 73 20 27 6d 61 | 6b 65 2d 66 72 61 6d 65 |lias 'ma|ke-frame|
|00001c80| 2d 63 6f 6d 6d 61 6e 64 | 20 23 5b 6e 69 6c 20 22 |-command| #[nil "|
|00001c90| 08 83 0d 00 08 c1 3d 84 | 0d 00 c2 20 87 c3 c2 20 |......=.|... ... |
|00001ca0| 21 87 22 20 5b 77 69 6e | 64 6f 77 2d 73 79 73 74 |!." [win|dow-syst|
|00001cb0| 65 6d 20 70 63 20 6d 61 | 6b 65 2d 66 72 61 6d 65 |em pc ma|ke-frame|
|00001cc0| 20 73 65 6c 65 63 74 2d | 66 72 61 6d 65 5d 20 32 | select-|frame] 2|
|00001cd0| 20 28 23 24 20 2e 20 37 | 32 30 31 29 20 6e 69 6c | (#$ . 7|201) nil|
|00001ce0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |]).(defa|lias (qu|
|00001cf0| 6f 74 65 20 6e 65 77 2d | 66 72 61 6d 65 29 20 28 |ote new-|frame) (|
|00001d00| 71 75 6f 74 65 20 6d 61 | 6b 65 2d 66 72 61 6d 65 |quote ma|ke-frame|
|00001d10| 29 29 0a 23 40 38 36 31 | 20 43 72 65 61 74 65 20 |)).#@861| Create |
|00001d20| 61 20 6e 65 77 20 66 72 | 61 6d 65 2c 20 64 69 73 |a new fr|ame, dis|
|00001d30| 70 6c 61 79 69 6e 67 20 | 74 68 65 20 63 75 72 72 |playing |the curr|
|00001d40| 65 6e 74 20 62 75 66 66 | 65 72 2e 0a 0a 4f 70 74 |ent buff|er...Opt|
|00001d50| 69 6f 6e 61 6c 20 61 72 | 67 75 6d 65 6e 74 20 50 |ional ar|gument P|
|00001d60| 41 52 41 4d 45 54 45 52 | 53 20 69 73 20 61 6e 20 |ARAMETER|S is an |
|00001d70| 61 6c 69 73 74 20 6f 66 | 20 70 61 72 61 6d 65 74 |alist of| paramet|
|00001d80| 65 72 73 20 66 6f 72 20 | 74 68 65 20 6e 65 77 0a |ers for |the new.|
|00001d90| 66 72 61 6d 65 2e 20 20 | 53 70 65 63 69 66 69 63 |frame. |Specific|
|00001da0| 61 6c 6c 79 2c 20 50 41 | 52 41 4d 45 54 45 52 53 |ally, PA|RAMETERS|
|00001db0| 20 69 73 20 61 20 6c 69 | 73 74 20 6f 66 20 70 61 | is a li|st of pa|
|00001dc0| 69 72 73 2c 20 65 61 63 | 68 20 68 61 76 69 6e 67 |irs, eac|h having|
|00001dd0| 0a 74 68 65 20 66 6f 72 | 6d 20 28 4e 41 4d 45 20 |.the for|m (NAME |
|00001de0| 2e 20 56 41 4c 55 45 29 | 2e 0a 0a 48 65 72 65 20 |. VALUE)|...Here |
|00001df0| 61 72 65 20 73 6f 6d 65 | 20 6f 66 20 74 68 65 20 |are some| of the |
|00001e00| 70 61 72 61 6d 65 74 65 | 72 73 20 61 6c 6c 6f 77 |paramete|rs allow|
|00001e10| 65 64 20 28 6e 6f 74 20 | 61 20 63 6f 6d 70 6c 65 |ed (not |a comple|
|00001e20| 74 65 20 6c 69 73 74 29 | 3a 0a 0a 28 6e 61 6d 65 |te list)|:..(name|
|00001e30| 20 2e 20 53 54 52 49 4e | 47 29 09 2d 20 54 68 65 | . STRIN|G).- The|
|00001e40| 20 66 72 61 6d 65 20 73 | 68 6f 75 6c 64 20 62 65 | frame s|hould be|
|00001e50| 20 6e 61 6d 65 64 20 53 | 54 52 49 4e 47 2e 0a 0a | named S|TRING...|
|00001e60| 28 68 65 69 67 68 74 20 | 2e 20 4e 55 4d 42 45 52 |(height |. NUMBER|
|00001e70| 29 20 2d 20 54 68 65 20 | 66 72 61 6d 65 20 73 68 |) - The |frame sh|
|00001e80| 6f 75 6c 64 20 62 65 20 | 4e 55 4d 42 45 52 20 74 |ould be |NUMBER t|
|00001e90| 65 78 74 20 6c 69 6e 65 | 73 20 68 69 67 68 2e 20 |ext line|s high. |
|00001ea0| 20 49 66 0a 09 74 68 69 | 73 20 70 61 72 61 6d 65 | If..thi|s parame|
|00001eb0| 74 65 72 20 69 73 20 70 | 72 65 73 65 6e 74 2c 20 |ter is p|resent, |
|00001ec0| 74 68 65 20 77 69 64 74 | 68 20 70 61 72 61 6d 65 |the widt|h parame|
|00001ed0| 74 65 72 20 6d 75 73 74 | 20 61 6c 73 6f 20 62 65 |ter must| also be|
|00001ee0| 0a 09 67 69 76 65 6e 2e | 0a 0a 28 77 69 64 74 68 |..given.|..(width|
|00001ef0| 20 2e 20 4e 55 4d 42 45 | 52 29 20 2d 20 54 68 65 | . NUMBE|R) - The|
|00001f00| 20 66 72 61 6d 65 20 73 | 68 6f 75 6c 64 20 62 65 | frame s|hould be|
|00001f10| 20 4e 55 4d 42 45 52 20 | 63 68 61 72 61 63 74 65 | NUMBER |characte|
|00001f20| 72 73 20 69 6e 20 77 69 | 64 74 68 2e 0a 09 49 66 |rs in wi|dth...If|
|00001f30| 20 74 68 69 73 20 70 61 | 72 61 6d 65 74 65 72 20 | this pa|rameter |
|00001f40| 69 73 20 70 72 65 73 65 | 6e 74 2c 20 74 68 65 20 |is prese|nt, the |
|00001f50| 68 65 69 67 68 74 20 70 | 61 72 61 6d 65 74 65 72 |height p|arameter|
|00001f60| 20 6d 75 73 74 20 61 6c | 73 6f 0a 09 62 65 20 67 | must al|so..be g|
|00001f70| 69 76 65 6e 2e 0a 0a 28 | 6d 69 6e 69 62 75 66 66 |iven...(|minibuff|
|00001f80| 65 72 20 2e 20 74 29 20 | 2d 20 74 68 65 20 66 72 |er . t) |- the fr|
|00001f90| 61 6d 65 20 73 68 6f 75 | 6c 64 20 68 61 76 65 20 |ame shou|ld have |
|00001fa0| 61 20 6d 69 6e 69 62 75 | 66 66 65 72 0a 28 6d 69 |a minibu|ffer.(mi|
|00001fb0| 6e 69 62 75 66 66 65 72 | 20 2e 20 6e 69 6c 29 20 |nibuffer| . nil) |
|00001fc0| 2d 20 74 68 65 20 66 72 | 61 6d 65 20 73 68 6f 75 |- the fr|ame shou|
|00001fd0| 6c 64 20 68 61 76 65 20 | 6e 6f 20 6d 69 6e 69 62 |ld have |no minib|
|00001fe0| 75 66 66 65 72 0a 28 6d | 69 6e 69 62 75 66 66 65 |uffer.(m|inibuffe|
|00001ff0| 72 20 2e 20 6f 6e 6c 79 | 29 20 2d 20 74 68 65 20 |r . only|) - the |
|00002000| 66 72 61 6d 65 20 73 68 | 6f 75 6c 64 20 63 6f 6e |frame sh|ould con|
|00002010| 74 61 69 6e 20 6f 6e 6c | 79 20 61 20 6d 69 6e 69 |tain onl|y a mini|
|00002020| 62 75 66 66 65 72 0a 28 | 6d 69 6e 69 62 75 66 66 |buffer.(|minibuff|
|00002030| 65 72 20 2e 20 57 49 4e | 44 4f 57 29 20 2d 20 74 |er . WIN|DOW) - t|
|00002040| 68 65 20 66 72 61 6d 65 | 20 73 68 6f 75 6c 64 20 |he frame| should |
|00002050| 75 73 65 20 57 49 4e 44 | 4f 57 20 61 73 20 69 74 |use WIND|OW as it|
|00002060| 73 20 6d 69 6e 69 62 75 | 66 66 65 72 20 77 69 6e |s minibu|ffer win|
|00002070| 64 6f 77 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |dow...(d|efalias |
|00002080| 27 6d 61 6b 65 2d 66 72 | 61 6d 65 20 23 5b 28 26 |'make-fr|ame #[(&|
|00002090| 6f 70 74 69 6f 6e 61 6c | 20 70 61 72 61 6d 65 74 |optional| paramet|
|000020a0| 65 72 73 29 20 22 c0 19 | c2 c3 21 88 5c 66 0d 21 |ers) "..|..!.\f.!|
|000020b0| 11 c2 c6 21 88 09 29 87 | 22 20 5b 6e 69 6c 20 6e |...!..).|" [nil n|
|000020c0| 66 72 61 6d 65 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |frame ru|n-hooks |
|000020d0| 62 65 66 6f 72 65 2d 6d | 61 6b 65 2d 66 72 61 6d |before-m|ake-fram|
|000020e0| 65 2d 68 6f 6f 6b 20 66 | 72 61 6d 65 2d 63 72 65 |e-hook f|rame-cre|
|000020f0| 61 74 69 6f 6e 2d 66 75 | 6e 63 74 69 6f 6e 20 70 |ation-fu|nction p|
|00002100| 61 72 61 6d 65 74 65 72 | 73 20 61 66 74 65 72 2d |arameter|s after-|
|00002110| 6d 61 6b 65 2d 66 72 61 | 6d 65 2d 68 6f 6f 6b 5d |make-fra|me-hook]|
|00002120| 20 32 20 28 23 24 20 2e | 20 37 34 34 39 29 20 6e | 2 (#$ .| 7449) n|
|00002130| 69 6c 5d 29 0a 23 40 35 | 39 20 52 65 74 75 72 6e |il]).#@5|9 Return|
|00002140| 20 61 20 6c 69 73 74 20 | 6f 66 20 61 6c 6c 20 6c | a list |of all l|
|00002150| 69 76 65 20 66 72 61 6d | 65 73 20 77 68 69 63 68 |ive fram|es which|
|00002160| 20 73 61 74 69 73 66 79 | 20 50 52 45 44 49 43 41 | satisfy| PREDICA|
|00002170| 54 45 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |TE...(de|falias '|
|00002180| 66 69 6c 74 65 72 65 64 | 2d 66 72 61 6d 65 2d 6c |filtered|-frame-l|
|00002190| 69 73 74 20 23 5b 28 70 | 72 65 64 69 63 61 74 65 |ist #[(p|redicate|
|000021a0| 29 20 22 c0 20 c1 1a 89 | 1b 3a 83 1d 00 5c 66 0b |) ". ...|.:...\f.|
|000021b0| 40 21 83 16 00 0b 40 5c | 6e 42 12 0b 41 89 13 82 |@!....@\|nB..A...|
|000021c0| 06 00 5c 6e 2a 87 22 20 | 5b 66 72 61 6d 65 2d 6c |..\n*." |[frame-l|
|000021d0| 69 73 74 20 6e 69 6c 20 | 67 6f 6f 64 2d 66 72 61 |ist nil |good-fra|
|000021e0| 6d 65 73 20 66 72 61 6d | 65 73 20 70 72 65 64 69 |mes fram|es predi|
|000021f0| 63 61 74 65 5d 20 33 20 | 28 23 24 20 2e 20 38 35 |cate] 3 |(#$ . 85|
|00002200| 30 36 29 5d 29 0a 23 40 | 35 37 20 52 65 74 75 72 |06)]).#@|57 Retur|
|00002210| 6e 20 61 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |n a list| of all |
|00002220| 66 72 61 6d 65 73 20 77 | 69 74 68 20 74 68 65 69 |frames w|ith thei|
|00002230| 72 20 6f 77 6e 20 6d 69 | 6e 69 62 75 66 66 65 72 |r own mi|nibuffer|
|00002240| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |s...(def|alias 'm|
|00002250| 69 6e 69 62 75 66 66 65 | 72 2d 66 72 61 6d 65 2d |inibuffe|r-frame-|
|00002260| 6c 69 73 74 20 23 5b 6e | 69 6c 20 22 c0 c1 21 87 |list #[n|il "..!.|
|00002270| 22 20 5b 66 69 6c 74 65 | 72 65 64 2d 66 72 61 6d |" [filte|red-fram|
|00002280| 65 2d 6c 69 73 74 20 23 | 5b 28 66 72 61 6d 65 29 |e-list #|[(frame)|
|00002290| 20 22 08 c1 c2 08 21 21 | 3d 87 22 20 5b 66 72 61 | "....!!|=." [fra|
|000022a0| 6d 65 20 77 69 6e 64 6f | 77 2d 66 72 61 6d 65 20 |me windo|w-frame |
|000022b0| 6d 69 6e 69 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |minibuff|er-windo|
|000022c0| 77 5d 20 34 5d 5d 20 32 | 20 28 23 24 20 2e 20 38 |w] 4]] 2| (#$ . 8|
|000022d0| 37 31 35 29 5d 29 0a 23 | 40 32 38 39 20 52 65 74 |715)]).#|@289 Ret|
|000022e0| 75 72 6e 20 74 68 65 20 | 70 61 72 61 6d 65 74 65 |urn the |paramete|
|000022f0| 72 20 6c 69 73 74 20 50 | 41 52 41 4d 2d 4c 49 53 |r list P|ARAM-LIS|
|00002300| 54 2c 20 62 75 74 20 77 | 69 74 68 20 67 65 6f 6d |T, but w|ith geom|
|00002310| 65 74 72 79 20 73 70 65 | 63 73 20 72 65 6d 6f 76 |etry spe|cs remov|
|00002320| 65 64 2e 0a 54 68 69 73 | 20 64 65 6c 65 74 65 73 |ed..This| deletes|
|00002330| 20 61 6c 6c 20 62 69 6e | 64 69 6e 67 73 20 69 6e | all bin|dings in|
|00002340| 20 50 41 52 41 4d 2d 4c | 49 53 54 20 66 6f 72 20 | PARAM-L|IST for |
|00002350| 60 74 6f 70 27 2c 20 60 | 6c 65 66 74 27 2c 20 60 |`top', `|left', `|
|00002360| 77 69 64 74 68 27 2c 0a | 60 68 65 69 67 68 74 27 |width',.|`height'|
|00002370| 2c 20 60 75 73 65 72 2d | 73 69 7a 65 27 20 61 6e |, `user-|size' an|
|00002380| 64 20 60 75 73 65 72 2d | 70 6f 73 69 74 69 6f 6e |d `user-|position|
|00002390| 27 20 70 61 72 61 6d 65 | 74 65 72 73 2e 0a 45 6d |' parame|ters..Em|
|000023a0| 61 63 73 20 75 73 65 73 | 20 74 68 69 73 20 74 6f |acs uses| this to|
|000023b0| 20 61 76 6f 69 64 20 6f | 76 65 72 72 69 64 69 6e | avoid o|verridin|
|000023c0| 67 20 65 78 70 6c 69 63 | 69 74 20 6d 6f 76 65 73 |g explic|it moves|
|000023d0| 20 61 6e 64 20 72 65 73 | 69 7a 69 6e 67 73 20 66 | and res|izings f|
|000023e0| 72 6f 6d 0a 74 68 65 20 | 75 73 65 72 20 64 75 72 |rom.the |user dur|
|000023f0| 69 6e 67 20 73 74 61 72 | 74 75 70 2e 1f 0a 28 64 |ing star|tup...(d|
|00002400| 65 66 61 6c 69 61 73 20 | 27 66 72 61 6d 65 2d 72 |efalias |'frame-r|
|00002410| 65 6d 6f 76 65 2d 67 65 | 6f 6d 65 74 72 79 2d 70 |emove-ge|ometry-p|
|00002420| 61 72 61 6d 73 20 23 5b | 28 70 61 72 61 6d 2d 6c |arams #[|(param-l|
|00002430| 69 73 74 29 20 22 c0 09 | 42 89 11 1a 5c 6e 41 3a |ist) "..|B...\nA:|
|00002440| 83 32 00 5c 6e 41 40 3a | 83 2b 00 5c 6e 41 40 40 |.2.\nA@:|.+.\nA@@|
|00002450| c3 3e 83 2b 00 5c 6e 41 | 40 5c 66 42 14 5c 6e 89 |.>.+.\nA|@\fB.\n.|
|00002460| 41 41 a1 88 82 06 00 5c | 6e 41 89 12 82 07 00 29 |AA.....\|nA.....)|
|00002470| 5c 66 9f 14 09 41 87 22 | 20 5b 6e 69 6c 20 70 61 |\f...A."| [nil pa|
|00002480| 72 61 6d 2d 6c 69 73 74 | 20 74 61 69 6c 20 28 68 |ram-list| tail (h|
|00002490| 65 69 67 68 74 20 77 69 | 64 74 68 20 74 6f 70 20 |eight wi|dth top |
|000024a0| 6c 65 66 74 20 75 73 65 | 72 2d 70 6f 73 69 74 69 |left use|r-positi|
|000024b0| 6f 6e 20 75 73 65 72 2d | 73 69 7a 65 29 20 66 72 |on user-|size) fr|
|000024c0| 61 6d 65 2d 69 6e 69 74 | 69 61 6c 2d 67 65 6f 6d |ame-init|ial-geom|
|000024d0| 65 74 72 79 2d 61 72 67 | 75 6d 65 6e 74 73 5d 20 |etry-arg|uments] |
|000024e0| 33 20 28 23 24 20 2e 20 | 38 39 32 35 29 5d 29 0a |3 (#$ . |8925)]).|
|000024f0| 23 40 32 30 36 20 53 65 | 6c 65 63 74 20 74 68 65 |#@206 Se|lect the|
|00002500| 20 41 52 47 27 74 68 20 | 64 69 66 66 65 72 65 6e | ARG'th |differen|
|00002510| 74 20 76 69 73 69 62 6c | 65 20 66 72 61 6d 65 2c |t visibl|e frame,|
|00002520| 20 61 6e 64 20 72 61 69 | 73 65 20 69 74 2e 0a 41 | and rai|se it..A|
|00002530| 6c 6c 20 66 72 61 6d 65 | 73 20 61 72 65 20 61 72 |ll frame|s are ar|
|00002540| 72 61 6e 67 65 64 20 69 | 6e 20 61 20 63 79 63 6c |ranged i|n a cycl|
|00002550| 69 63 20 6f 72 64 65 72 | 2e 0a 54 68 69 73 20 63 |ic order|..This c|
|00002560| 6f 6d 6d 61 6e 64 20 73 | 65 6c 65 63 74 73 20 74 |ommand s|elects t|
|00002570| 68 65 20 66 72 61 6d 65 | 20 41 52 47 20 73 74 65 |he frame| ARG ste|
|00002580| 70 73 20 61 77 61 79 20 | 69 6e 20 74 68 61 74 20 |ps away |in that |
|00002590| 6f 72 64 65 72 2e 0a 41 | 20 6e 65 67 61 74 69 76 |order..A| negativ|
|000025a0| 65 20 41 52 47 20 6d 6f | 76 65 73 20 69 6e 20 74 |e ARG mo|ves in t|
|000025b0| 68 65 20 6f 70 70 6f 73 | 69 74 65 20 6f 72 64 65 |he oppos|ite orde|
|000025c0| 72 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6f |r...(def|alias 'o|
|000025d0| 74 68 65 72 2d 66 72 61 | 6d 65 20 23 5b 28 61 72 |ther-fra|me #[(ar|
|000025e0| 67 29 20 22 c0 20 19 5c | 6e c3 56 83 23 00 c4 09 |g) ". .\|n.V.#...|
|000025f0| 21 11 c5 09 21 c6 3d 84 | 1c 00 c4 09 21 11 82 0d |!...!.=.|....!...|
|00002600| 00 5c 6e 53 89 12 82 04 | 00 5c 6e c3 57 83 43 00 |.\nS....|.\n.W.C.|
|00002610| c7 09 21 11 c5 09 21 c6 | 3d 84 3c 00 c7 09 21 11 |..!...!.|=.<...!.|
|00002620| 82 2d 00 5c 6e 54 89 12 | 82 24 00 c8 09 21 88 c9 |.-.\nT..|.$...!..|
|00002630| 09 21 88 ca c0 20 cb 20 | 53 c3 23 88 cc cd 21 85 |.!... . |S.#...!.|
|00002640| 5c 5c 00 cd 20 29 87 22 | 20 5b 73 65 6c 65 63 74 |\\.. )."| [select|
|00002650| 65 64 2d 66 72 61 6d 65 | 20 66 72 61 6d 65 20 61 |ed-frame| frame a|
|00002660| 72 67 20 30 20 6e 65 78 | 74 2d 66 72 61 6d 65 20 |rg 0 nex|t-frame |
|00002670| 66 72 61 6d 65 2d 76 69 | 73 69 62 6c 65 2d 70 20 |frame-vi|sible-p |
|00002680| 74 20 70 72 65 76 69 6f | 75 73 2d 66 72 61 6d 65 |t previo|us-frame|
|00002690| 20 72 61 69 73 65 2d 66 | 72 61 6d 65 20 73 65 6c | raise-f|rame sel|
|000026a0| 65 63 74 2d 66 72 61 6d | 65 20 73 65 74 2d 6d 6f |ect-fram|e set-mo|
|000026b0| 75 73 65 2d 70 6f 73 69 | 74 69 6f 6e 20 66 72 61 |use-posi|tion fra|
|000026c0| 6d 65 2d 77 69 64 74 68 | 20 66 62 6f 75 6e 64 70 |me-width| fboundp|
|000026d0| 20 75 6e 66 6f 63 75 73 | 2d 66 72 61 6d 65 5d 20 | unfocus|-frame] |
|000026e0| 35 20 28 23 24 20 2e 20 | 39 34 36 32 29 20 22 70 |5 (#$ . |9462) "p|
|000026f0| 22 5d 29 0a 23 40 33 34 | 32 20 52 65 74 75 72 6e |"]).#@34|2 Return|
|00002700| 20 61 20 6c 69 73 74 20 | 64 65 73 63 72 69 62 69 | a list |describi|
|00002710| 6e 67 20 74 68 65 20 70 | 6f 73 69 74 69 6f 6e 73 |ng the p|ositions|
|00002720| 20 61 6e 64 20 73 74 61 | 74 65 73 20 6f 66 20 61 | and sta|tes of a|
|00002730| 6c 6c 20 66 72 61 6d 65 | 73 2e 0a 49 74 73 20 63 |ll frame|s..Its c|
|00002740| 61 72 20 69 73 20 60 66 | 72 61 6d 65 2d 63 6f 6e |ar is `f|rame-con|
|00002750| 66 69 67 75 72 61 74 69 | 6f 6e 27 2e 0a 45 61 63 |figurati|on'..Eac|
|00002760| 68 20 65 6c 65 6d 65 6e | 74 20 6f 66 20 74 68 65 |h elemen|t of the|
|00002770| 20 63 64 72 20 69 73 20 | 61 20 6c 69 73 74 20 6f | cdr is |a list o|
|00002780| 66 20 74 68 65 20 66 6f | 72 6d 20 28 46 52 41 4d |f the fo|rm (FRAM|
|00002790| 45 20 41 4c 49 53 54 20 | 57 49 4e 44 4f 57 2d 43 |E ALIST |WINDOW-C|
|000027a0| 4f 4e 46 49 47 29 2c 0a | 77 68 65 72 65 0a 20 20 |ONFIG),.|where. |
|000027b0| 46 52 41 4d 45 20 69 73 | 20 61 20 66 72 61 6d 65 |FRAME is| a frame|
|000027c0| 20 6f 62 6a 65 63 74 2c | 0a 20 20 41 4c 49 53 54 | object,|. ALIST|
|000027d0| 20 69 73 20 61 6e 20 61 | 73 73 6f 63 69 61 74 69 | is an a|ssociati|
|000027e0| 6f 6e 20 6c 69 73 74 20 | 73 70 65 63 69 66 79 69 |on list |specifyi|
|000027f0| 6e 67 20 73 6f 6d 65 20 | 6f 66 20 46 52 41 4d 45 |ng some |of FRAME|
|00002800| 27 73 20 70 61 72 61 6d | 65 74 65 72 73 2c 20 61 |'s param|eters, a|
|00002810| 6e 64 0a 20 20 57 49 4e | 44 4f 57 2d 43 4f 4e 46 |nd. WIN|DOW-CONF|
|00002820| 49 47 20 69 73 20 61 20 | 77 69 6e 64 6f 77 20 63 |IG is a |window c|
|00002830| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 20 6f 62 6a |onfigura|tion obj|
|00002840| 65 63 74 20 66 6f 72 20 | 46 52 41 4d 45 2e 1f 0a |ect for |FRAME...|
|00002850| 28 64 65 66 61 6c 69 61 | 73 20 27 63 75 72 72 65 |(defalia|s 'curre|
|00002860| 6e 74 2d 66 72 61 6d 65 | 2d 63 6f 6e 66 69 67 75 |nt-frame|-configu|
|00002870| 72 61 74 69 6f 6e 20 23 | 5b 6e 69 6c 20 22 c0 c1 |ration #|[nil "..|
|00002880| c2 c3 20 5c 22 42 87 22 | 20 5b 66 72 61 6d 65 2d |.. \"B."| [frame-|
|00002890| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 6d 61 |configur|ation ma|
|000028a0| 70 63 61 72 20 23 5b 28 | 66 72 61 6d 65 29 20 22 |pcar #[(|frame) "|
|000028b0| 08 c1 08 21 c2 08 21 45 | 87 22 20 5b 66 72 61 6d |...!..!E|." [fram|
|000028c0| 65 20 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |e frame-|paramete|
|000028d0| 72 73 20 63 75 72 72 65 | 6e 74 2d 77 69 6e 64 6f |rs curre|nt-windo|
|000028e0| 77 2d 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 5d |w-config|uration]|
|000028f0| 20 34 5d 20 66 72 61 6d | 65 2d 6c 69 73 74 5d 20 | 4] fram|e-list] |
|00002900| 34 20 28 23 24 20 2e 20 | 39 39 37 38 29 5d 29 0a |4 (#$ . |9978)]).|
|00002910| 23 40 33 38 38 20 52 65 | 73 74 6f 72 65 20 74 68 |#@388 Re|store th|
|00002920| 65 20 66 72 61 6d 65 73 | 20 74 6f 20 74 68 65 20 |e frames| to the |
|00002930| 73 74 61 74 65 20 64 65 | 73 63 72 69 62 65 64 20 |state de|scribed |
|00002940| 62 79 20 43 4f 4e 46 49 | 47 55 52 41 54 49 4f 4e |by CONFI|GURATION|
|00002950| 2e 0a 45 61 63 68 20 66 | 72 61 6d 65 20 6c 69 73 |..Each f|rame lis|
|00002960| 74 65 64 20 69 6e 20 43 | 4f 4e 46 49 47 55 52 41 |ted in C|ONFIGURA|
|00002970| 54 49 4f 4e 20 68 61 73 | 20 69 74 73 20 70 6f 73 |TION has| its pos|
|00002980| 69 74 69 6f 6e 2c 20 73 | 69 7a 65 2c 20 77 69 6e |ition, s|ize, win|
|00002990| 64 6f 77 0a 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow.conf|iguratio|
|000029a0| 6e 2c 20 61 6e 64 20 6f | 74 68 65 72 20 70 61 72 |n, and o|ther par|
|000029b0| 61 6d 65 74 65 72 73 20 | 73 65 74 20 61 73 20 73 |ameters |set as s|
|000029c0| 70 65 63 69 66 69 65 64 | 20 69 6e 20 43 4f 4e 46 |pecified| in CONF|
|000029d0| 49 47 55 52 41 54 49 4f | 4e 2e 0a 4f 72 64 69 6e |IGURATIO|N..Ordin|
|000029e0| 61 72 69 6c 79 2c 20 74 | 68 69 73 20 66 75 6e 63 |arily, t|his func|
|000029f0| 74 69 6f 6e 20 64 65 6c | 65 74 65 73 20 61 6c 6c |tion del|etes all|
|00002a00| 20 65 78 69 73 74 69 6e | 67 20 66 72 61 6d 65 73 | existin|g frames|
|00002a10| 20 6e 6f 74 0a 6c 69 73 | 74 65 64 20 69 6e 20 43 | not.lis|ted in C|
|00002a20| 4f 4e 46 49 47 55 52 41 | 54 49 4f 4e 2e 20 20 42 |ONFIGURA|TION. B|
|00002a30| 75 74 20 69 66 20 6f 70 | 74 69 6f 6e 61 6c 20 73 |ut if op|tional s|
|00002a40| 65 63 6f 6e 64 20 61 72 | 67 75 6d 65 6e 74 20 4e |econd ar|gument N|
|00002a50| 4f 44 45 4c 45 54 45 0a | 69 73 20 67 69 76 65 6e |ODELETE.|is given|
|00002a60| 20 61 6e 64 20 6e 6f 6e | 2d 6e 69 6c 2c 20 74 68 | and non|-nil, th|
|00002a70| 65 20 75 6e 77 61 6e 74 | 65 64 20 66 72 61 6d 65 |e unwant|ed frame|
|00002a80| 73 20 61 72 65 20 69 63 | 6f 6e 69 66 69 65 64 20 |s are ic|onified |
|00002a90| 69 6e 73 74 65 61 64 2e | 1f 0a 28 64 65 66 61 6c |instead.|..(defal|
|00002aa0| 69 61 73 20 27 73 65 74 | 2d 66 72 61 6d 65 2d 63 |ias 'set|-frame-c|
|00002ab0| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 20 23 5b 28 |onfigura|tion #[(|
|00002ac0| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 26 6f |configur|ation &o|
|00002ad0| 70 74 69 6f 6e 61 6c 20 | 6e 6f 64 65 6c 65 74 65 |ptional |nodelete|
|00002ae0| 29 20 22 c0 09 21 84 0d | 00 c2 c3 c0 09 44 5c 22 |) "..!..|.....D\"|
|00002af0| 88 09 41 c4 1d 1e 06 c7 | c8 c9 20 5c 22 88 0e 5c |..A.....|.. \"..\|
|00002b00| 6e 83 25 00 c7 cb 0d 5c | 22 82 29 00 c7 cc 0d 5c |n.%....\|".)....\|
|00002b10| 22 2a 87 22 20 5b 66 72 | 61 6d 65 2d 63 6f 6e 66 |"*." [fr|ame-conf|
|00002b20| 69 67 75 72 61 74 69 6f | 6e 2d 70 20 63 6f 6e 66 |iguratio|n-p conf|
|00002b30| 69 67 75 72 61 74 69 6f | 6e 20 73 69 67 6e 61 6c |iguratio|n signal|
|00002b40| 20 77 72 6f 6e 67 2d 74 | 79 70 65 2d 61 72 67 75 | wrong-t|ype-argu|
|00002b50| 6d 65 6e 74 20 6e 69 6c | 20 66 72 61 6d 65 73 2d |ment nil| frames-|
|00002b60| 74 6f 2d 64 65 6c 65 74 | 65 20 63 6f 6e 66 69 67 |to-delet|e config|
|00002b70| 2d 61 6c 69 73 74 20 6d | 61 70 63 61 72 20 23 5b |-alist m|apcar #[|
|00002b80| 28 66 72 61 6d 65 29 20 | 22 08 09 9e 89 1a 83 29 |(frame) |"......)|
|00002b90| 00 c3 08 5c 6e 41 40 1c | c5 5c 66 9e 89 1e 06 83 |...\nA@.|.\f.....|
|00002ba0| 1d 00 c7 0e 06 5c 66 5c | 22 14 5c 66 2a 5c 22 88 |.....\f\|".\f*\".|
|00002bb0| c8 c9 5c 6e 38 21 82 30 | 00 08 0e 5c 6e 42 89 16 |..\n8!.0|...\nB..|
|00002bc0| 5c 6e 29 87 22 20 5b 66 | 72 61 6d 65 20 63 6f 6e |\n)." [f|rame con|
|00002bd0| 66 69 67 2d 61 6c 69 73 | 74 20 70 61 72 61 6d 65 |fig-alis|t parame|
|00002be0| 74 65 72 73 20 6d 6f 64 | 69 66 79 2d 66 72 61 6d |ters mod|ify-fram|
|00002bf0| 65 2d 70 61 72 61 6d 65 | 74 65 72 73 20 70 61 72 |e-parame|ters par|
|00002c00| 6d 73 20 6d 69 6e 69 62 | 75 66 66 65 72 20 6d 69 |ms minib|uffer mi|
|00002c10| 6e 69 20 64 65 6c 71 20 | 73 65 74 2d 77 69 6e 64 |ni delq |set-wind|
|00002c20| 6f 77 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow-confi|guration|
|00002c30| 20 32 20 66 72 61 6d 65 | 73 2d 74 6f 2d 64 65 6c | 2 frame|s-to-del|
|00002c40| 65 74 65 5d 20 36 5d 20 | 66 72 61 6d 65 2d 6c 69 |ete] 6] |frame-li|
|00002c50| 73 74 20 6e 6f 64 65 6c | 65 74 65 20 69 63 6f 6e |st nodel|ete icon|
|00002c60| 69 66 79 2d 66 72 61 6d | 65 20 64 65 6c 65 74 65 |ify-fram|e delete|
|00002c70| 2d 66 72 61 6d 65 5d 20 | 34 20 28 23 24 20 2e 20 |-frame] |4 (#$ . |
|00002c80| 31 30 35 31 38 29 5d 29 | 0a 23 40 31 31 36 20 52 |10518)])|.#@116 R|
|00002c90| 65 74 75 72 6e 20 6e 75 | 6d 62 65 72 20 6f 66 20 |eturn nu|mber of |
|00002ca0| 6c 69 6e 65 73 20 61 76 | 61 69 6c 61 62 6c 65 20 |lines av|ailable |
|00002cb0| 66 6f 72 20 64 69 73 70 | 6c 61 79 20 6f 6e 20 46 |for disp|lay on F|
|00002cc0| 52 41 4d 45 2e 0a 49 66 | 20 46 52 41 4d 45 20 69 |RAME..If| FRAME i|
|00002cd0| 73 20 6f 6d 69 74 74 65 | 64 2c 20 64 65 73 63 72 |s omitte|d, descr|
|00002ce0| 69 62 65 20 74 68 65 20 | 63 75 72 72 65 6e 74 6c |ibe the |currentl|
|00002cf0| 79 20 73 65 6c 65 63 74 | 65 64 20 66 72 61 6d 65 |y select|ed frame|
|00002d00| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 72 |...(defa|lias 'fr|
|00002d10| 61 6d 65 2d 68 65 69 67 | 68 74 20 23 5b 28 26 6f |ame-heig|ht #[(&o|
|00002d20| 70 74 69 6f 6e 61 6c 20 | 66 72 61 6d 65 29 20 22 |ptional |frame) "|
|00002d30| c0 c1 5c 6e 21 9e 41 87 | 22 20 5b 68 65 69 67 68 |..\n!.A.|" [heigh|
|00002d40| 74 20 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |t frame-|paramete|
|00002d50| 72 73 20 66 72 61 6d 65 | 5d 20 33 20 28 23 24 20 |rs frame|] 3 (#$ |
|00002d60| 2e 20 31 31 34 30 37 29 | 5d 29 0a 23 40 31 31 38 |. 11407)|]).#@118|
|00002d70| 20 52 65 74 75 72 6e 20 | 6e 75 6d 62 65 72 20 6f | Return |number o|
|00002d80| 66 20 63 6f 6c 75 6d 6e | 73 20 61 76 61 69 6c 61 |f column|s availa|
|00002d90| 62 6c 65 20 66 6f 72 20 | 64 69 73 70 6c 61 79 20 |ble for |display |
|00002da0| 6f 6e 20 46 52 41 4d 45 | 2e 0a 49 66 20 46 52 41 |on FRAME|..If FRA|
|00002db0| 4d 45 20 69 73 20 6f 6d | 69 74 74 65 64 2c 20 64 |ME is om|itted, d|
|00002dc0| 65 73 63 72 69 62 65 20 | 74 68 65 20 63 75 72 72 |escribe |the curr|
|00002dd0| 65 6e 74 6c 79 20 73 65 | 6c 65 63 74 65 64 20 66 |ently se|lected f|
|00002de0| 72 61 6d 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |rame...(|defalias|
|00002df0| 20 27 66 72 61 6d 65 2d | 77 69 64 74 68 20 23 5b | 'frame-|width #[|
|00002e00| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 72 61 6d 65 |(&option|al frame|
|00002e10| 29 20 22 c0 c1 5c 6e 21 | 9e 41 87 22 20 5b 77 69 |) "..\n!|.A." [wi|
|00002e20| 64 74 68 20 66 72 61 6d | 65 2d 70 61 72 61 6d 65 |dth fram|e-parame|
|00002e30| 74 65 72 73 20 66 72 61 | 6d 65 5d 20 33 20 28 23 |ters fra|me] 3 (#|
|00002e40| 24 20 2e 20 31 31 36 33 | 33 29 5d 29 0a 23 40 31 |$ . 1163|3)]).#@1|
|00002e50| 31 32 20 53 65 74 20 74 | 68 65 20 66 6f 6e 74 20 |12 Set t|he font |
|00002e60| 6f 66 20 74 68 65 20 73 | 65 6c 65 63 74 65 64 20 |of the s|elected |
|00002e70| 66 72 61 6d 65 20 74 6f | 20 46 4f 4e 54 2e 0a 57 |frame to| FONT..W|
|00002e80| 68 65 6e 20 63 61 6c 6c | 65 64 20 69 6e 74 65 72 |hen call|ed inter|
|00002e90| 61 63 74 69 76 65 6c 79 | 2c 20 70 72 6f 6d 70 74 |actively|, prompt|
|00002ea0| 20 66 6f 72 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 | for the| name of|
|00002eb0| 20 74 68 65 20 66 6f 6e | 74 20 74 6f 20 75 73 65 | the fon|t to use|
|00002ec0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 65 |...(defa|lias 'se|
|00002ed0| 74 2d 64 65 66 61 75 6c | 74 2d 66 6f 6e 74 20 23 |t-defaul|t-font #|
|00002ee0| 5b 28 66 6f 6e 74 2d 6e | 61 6d 65 29 20 22 c0 c1 |[(font-n|ame) "..|
|00002ef0| 20 c2 0b 42 43 5c 22 88 | c4 c1 20 21 87 22 20 5b | ..BC\".|.. !." [|
|00002f00| 6d 6f 64 69 66 79 2d 66 | 72 61 6d 65 2d 70 61 72 |modify-f|rame-par|
|00002f10| 61 6d 65 74 65 72 73 20 | 73 65 6c 65 63 74 65 64 |ameters |selected|
|00002f20| 2d 66 72 61 6d 65 20 66 | 6f 6e 74 20 66 6f 6e 74 |-frame f|ont font|
|00002f30| 2d 6e 61 6d 65 20 66 72 | 61 6d 65 2d 75 70 64 61 |-name fr|ame-upda|
|00002f40| 74 65 2d 66 61 63 65 73 | 5d 20 34 20 28 23 24 20 |te-faces|] 4 (#$ |
|00002f50| 2e 20 31 31 38 35 39 29 | 20 22 73 46 6f 6e 74 20 |. 11859)| "sFont |
|00002f60| 6e 61 6d 65 3a 20 22 5d | 29 0a 23 40 31 32 36 20 |name: "]|).#@126 |
|00002f70| 53 65 74 20 74 68 65 20 | 62 61 63 6b 67 72 6f 75 |Set the |backgrou|
|00002f80| 6e 64 20 63 6f 6c 6f 72 | 20 6f 66 20 74 68 65 20 |nd color| of the |
|00002f90| 73 65 6c 65 63 74 65 64 | 20 66 72 61 6d 65 20 74 |selected| frame t|
|00002fa0| 6f 20 43 4f 4c 4f 52 2e | 0a 57 68 65 6e 20 63 61 |o COLOR.|.When ca|
|00002fb0| 6c 6c 65 64 20 69 6e 74 | 65 72 61 63 74 69 76 65 |lled int|eractive|
|00002fc0| 6c 79 2c 20 70 72 6f 6d | 70 74 20 66 6f 72 20 74 |ly, prom|pt for t|
|00002fd0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 63 |he name |of the c|
|00002fe0| 6f 6c 6f 72 20 74 6f 20 | 75 73 65 2e 1f 0a 28 64 |olor to |use...(d|
|00002ff0| 65 66 61 6c 69 61 73 20 | 27 73 65 74 2d 62 61 63 |efalias |'set-bac|
|00003000| 6b 67 72 6f 75 6e 64 2d | 63 6f 6c 6f 72 20 23 5b |kground-|color #[|
|00003010| 28 63 6f 6c 6f 72 2d 6e | 61 6d 65 29 20 22 c0 c1 |(color-n|ame) "..|
|00003020| 20 c2 0b 42 43 5c 22 88 | c4 c1 20 21 87 22 20 5b | ..BC\".|.. !." [|
|00003030| 6d 6f 64 69 66 79 2d 66 | 72 61 6d 65 2d 70 61 72 |modify-f|rame-par|
|00003040| 61 6d 65 74 65 72 73 20 | 73 65 6c 65 63 74 65 64 |ameters |selected|
|00003050| 2d 66 72 61 6d 65 20 62 | 61 63 6b 67 72 6f 75 6e |-frame b|ackgroun|
|00003060| 64 2d 63 6f 6c 6f 72 20 | 63 6f 6c 6f 72 2d 6e 61 |d-color |color-na|
|00003070| 6d 65 20 66 72 61 6d 65 | 2d 75 70 64 61 74 65 2d |me frame|-update-|
|00003080| 66 61 63 65 2d 63 6f 6c | 6f 72 73 5d 20 34 20 28 |face-col|ors] 4 (|
|00003090| 23 24 20 2e 20 31 32 31 | 34 34 29 20 22 73 43 6f |#$ . 121|44) "sCo|
|000030a0| 6c 6f 72 3a 20 22 5d 29 | 0a 23 40 31 32 36 20 53 |lor: "])|.#@126 S|
|000030b0| 65 74 20 74 68 65 20 66 | 6f 72 65 67 72 6f 75 6e |et the f|oregroun|
|000030c0| 64 20 63 6f 6c 6f 72 20 | 6f 66 20 74 68 65 20 73 |d color |of the s|
|000030d0| 65 6c 65 63 74 65 64 20 | 66 72 61 6d 65 20 74 6f |elected |frame to|
|000030e0| 20 43 4f 4c 4f 52 2e 0a | 57 68 65 6e 20 63 61 6c | COLOR..|When cal|
|000030f0| 6c 65 64 20 69 6e 74 65 | 72 61 63 74 69 76 65 6c |led inte|ractivel|
|00003100| 79 2c 20 70 72 6f 6d 70 | 74 20 66 6f 72 20 74 68 |y, promp|t for th|
|00003110| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 63 6f |e name o|f the co|
|00003120| 6c 6f 72 20 74 6f 20 75 | 73 65 2e 1f 0a 28 64 65 |lor to u|se...(de|
|00003130| 66 61 6c 69 61 73 20 27 | 73 65 74 2d 66 6f 72 65 |falias '|set-fore|
|00003140| 67 72 6f 75 6e 64 2d 63 | 6f 6c 6f 72 20 23 5b 28 |ground-c|olor #[(|
|00003150| 63 6f 6c 6f 72 2d 6e 61 | 6d 65 29 20 22 c0 c1 20 |color-na|me) ".. |
|00003160| c2 0b 42 43 5c 22 88 c4 | c1 20 21 87 22 20 5b 6d |..BC\"..|. !." [m|
|00003170| 6f 64 69 66 79 2d 66 72 | 61 6d 65 2d 70 61 72 61 |odify-fr|ame-para|
|00003180| 6d 65 74 65 72 73 20 73 | 65 6c 65 63 74 65 64 2d |meters s|elected-|
|00003190| 66 72 61 6d 65 20 66 6f | 72 65 67 72 6f 75 6e 64 |frame fo|reground|
|000031a0| 2d 63 6f 6c 6f 72 20 63 | 6f 6c 6f 72 2d 6e 61 6d |-color c|olor-nam|
|000031b0| 65 20 66 72 61 6d 65 2d | 75 70 64 61 74 65 2d 66 |e frame-|update-f|
|000031c0| 61 63 65 2d 63 6f 6c 6f | 72 73 5d 20 34 20 28 23 |ace-colo|rs] 4 (#|
|000031d0| 24 20 2e 20 31 32 34 36 | 33 29 20 22 73 43 6f 6c |$ . 1246|3) "sCol|
|000031e0| 6f 72 3a 20 22 5d 29 0a | 23 40 31 32 37 20 53 65 |or: "]).|#@127 Se|
|000031f0| 74 20 74 68 65 20 74 65 | 78 74 20 63 75 72 73 6f |t the te|xt curso|
|00003200| 72 20 63 6f 6c 6f 72 20 | 6f 66 20 74 68 65 20 73 |r color |of the s|
|00003210| 65 6c 65 63 74 65 64 20 | 66 72 61 6d 65 20 74 6f |elected |frame to|
|00003220| 20 43 4f 4c 4f 52 2e 0a | 57 68 65 6e 20 63 61 6c | COLOR..|When cal|
|00003230| 6c 65 64 20 69 6e 74 65 | 72 61 63 74 69 76 65 6c |led inte|ractivel|
|00003240| 79 2c 20 70 72 6f 6d 70 | 74 20 66 6f 72 20 74 68 |y, promp|t for th|
|00003250| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 63 6f |e name o|f the co|
|00003260| 6c 6f 72 20 74 6f 20 75 | 73 65 2e 1f 0a 28 64 65 |lor to u|se...(de|
|00003270| 66 61 6c 69 61 73 20 27 | 73 65 74 2d 63 75 72 73 |falias '|set-curs|
|00003280| 6f 72 2d 63 6f 6c 6f 72 | 20 23 5b 28 63 6f 6c 6f |or-color| #[(colo|
|00003290| 72 2d 6e 61 6d 65 29 20 | 22 c0 c1 20 c2 0b 42 43 |r-name) |".. ..BC|
|000032a0| 5c 22 87 22 20 5b 6d 6f | 64 69 66 79 2d 66 72 61 |\"." [mo|dify-fra|
|000032b0| 6d 65 2d 70 61 72 61 6d | 65 74 65 72 73 20 73 65 |me-param|eters se|
|000032c0| 6c 65 63 74 65 64 2d 66 | 72 61 6d 65 20 63 75 72 |lected-f|rame cur|
|000032d0| 73 6f 72 2d 63 6f 6c 6f | 72 20 63 6f 6c 6f 72 2d |sor-colo|r color-|
|000032e0| 6e 61 6d 65 5d 20 34 20 | 28 23 24 20 2e 20 31 32 |name] 4 |(#$ . 12|
|000032f0| 37 38 32 29 20 22 73 43 | 6f 6c 6f 72 3a 20 22 5d |782) "sC|olor: "]|
|00003300| 29 0a 23 40 31 33 36 20 | 53 65 74 20 74 68 65 20 |).#@136 |Set the |
|00003310| 63 6f 6c 6f 72 20 6f 66 | 20 74 68 65 20 6d 6f 75 |color of| the mou|
|00003320| 73 65 20 70 6f 69 6e 74 | 65 72 20 6f 66 20 74 68 |se point|er of th|
|00003330| 65 20 73 65 6c 65 63 74 | 65 64 20 66 72 61 6d 65 |e select|ed frame|
|00003340| 20 74 6f 20 43 4f 4c 4f | 52 2e 0a 57 68 65 6e 20 | to COLO|R..When |
|00003350| 63 61 6c 6c 65 64 20 69 | 6e 74 65 72 61 63 74 69 |called i|nteracti|
|00003360| 76 65 6c 79 2c 20 70 72 | 6f 6d 70 74 20 66 6f 72 |vely, pr|ompt for|
|00003370| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00003380| 20 63 6f 6c 6f 72 20 74 | 6f 20 75 73 65 2e 1f 0a | color t|o use...|
|00003390| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 74 2d 6d |(defalia|s 'set-m|
|000033a0| 6f 75 73 65 2d 63 6f 6c | 6f 72 20 23 5b 28 63 6f |ouse-col|or #[(co|
|000033b0| 6c 6f 72 2d 6e 61 6d 65 | 29 20 22 c0 c1 20 c2 0b |lor-name|) ".. ..|
|000033c0| 42 43 5c 22 87 22 20 5b | 6d 6f 64 69 66 79 2d 66 |BC\"." [|modify-f|
|000033d0| 72 61 6d 65 2d 70 61 72 | 61 6d 65 74 65 72 73 20 |rame-par|ameters |
|000033e0| 73 65 6c 65 63 74 65 64 | 2d 66 72 61 6d 65 20 6d |selected|-frame m|
|000033f0| 6f 75 73 65 2d 63 6f 6c | 6f 72 20 63 6f 6c 6f 72 |ouse-col|or color|
|00003400| 2d 6e 61 6d 65 5d 20 34 | 20 28 23 24 20 2e 20 31 |-name] 4| (#$ . 1|
|00003410| 33 30 36 34 29 20 22 73 | 43 6f 6c 6f 72 3a 20 22 |3064) "s|Color: "|
|00003420| 5d 29 0a 23 40 31 32 39 | 20 53 65 74 20 74 68 65 |]).#@129| Set the|
|00003430| 20 63 6f 6c 6f 72 20 6f | 66 20 74 68 65 20 62 6f | color o|f the bo|
|00003440| 72 64 65 72 20 6f 66 20 | 74 68 65 20 73 65 6c 65 |rder of |the sele|
|00003450| 63 74 65 64 20 66 72 61 | 6d 65 20 74 6f 20 43 4f |cted fra|me to CO|
|00003460| 4c 4f 52 2e 0a 57 68 65 | 6e 20 63 61 6c 6c 65 64 |LOR..Whe|n called|
|00003470| 20 69 6e 74 65 72 61 63 | 74 69 76 65 6c 79 2c 20 | interac|tively, |
|00003480| 70 72 6f 6d 70 74 20 66 | 6f 72 20 74 68 65 20 6e |prompt f|or the n|
|00003490| 61 6d 65 20 6f 66 20 74 | 68 65 20 63 6f 6c 6f 72 |ame of t|he color|
|000034a0| 20 74 6f 20 75 73 65 2e | 1f 0a 28 64 65 66 61 6c | to use.|..(defal|
|000034b0| 69 61 73 20 27 73 65 74 | 2d 62 6f 72 64 65 72 2d |ias 'set|-border-|
|000034c0| 63 6f 6c 6f 72 20 23 5b | 28 63 6f 6c 6f 72 2d 6e |color #[|(color-n|
|000034d0| 61 6d 65 29 20 22 c0 c1 | 20 c2 0b 42 43 5c 22 87 |ame) "..| ..BC\".|
|000034e0| 22 20 5b 6d 6f 64 69 66 | 79 2d 66 72 61 6d 65 2d |" [modif|y-frame-|
|000034f0| 70 61 72 61 6d 65 74 65 | 72 73 20 73 65 6c 65 63 |paramete|rs selec|
|00003500| 74 65 64 2d 66 72 61 6d | 65 20 62 6f 72 64 65 72 |ted-fram|e border|
|00003510| 2d 63 6f 6c 6f 72 20 63 | 6f 6c 6f 72 2d 6e 61 6d |-color c|olor-nam|
|00003520| 65 5d 20 34 20 28 23 24 | 20 2e 20 31 33 33 35 33 |e] 4 (#$| . 13353|
|00003530| 29 20 22 73 43 6f 6c 6f | 72 3a 20 22 5d 29 0a 23 |) "sColo|r: "]).#|
|00003540| 40 33 39 33 20 54 6f 67 | 67 6c 65 20 77 68 65 74 |@393 Tog|gle whet|
|00003550| 68 65 72 20 6f 72 20 6e | 6f 74 20 74 68 65 20 73 |her or n|ot the s|
|00003560| 65 6c 65 63 74 65 64 20 | 66 72 61 6d 65 20 73 68 |elected |frame sh|
|00003570| 6f 75 6c 64 20 61 75 74 | 6f 2d 72 61 69 73 65 2e |ould aut|o-raise.|
|00003580| 0a 57 69 74 68 20 61 72 | 67 2c 20 74 75 72 6e 20 |.With ar|g, turn |
|00003590| 61 75 74 6f 2d 72 61 69 | 73 65 20 6d 6f 64 65 20 |auto-rai|se mode |
|000035a0| 6f 6e 20 69 66 20 61 6e | 64 20 6f 6e 6c 79 20 69 |on if an|d only i|
|000035b0| 66 20 61 72 67 20 69 73 | 20 70 6f 73 69 74 69 76 |f arg is| positiv|
|000035c0| 65 2e 0a 4e 6f 74 65 20 | 74 68 61 74 20 74 68 69 |e..Note |that thi|
|000035d0| 73 20 63 6f 6e 74 72 6f | 6c 73 20 45 6d 61 63 73 |s contro|ls Emacs|
|000035e0| 27 73 20 6f 77 6e 20 61 | 75 74 6f 2d 72 61 69 73 |'s own a|uto-rais|
|000035f0| 65 20 66 65 61 74 75 72 | 65 2e 0a 53 6f 6d 65 20 |e featur|e..Some |
|00003600| 77 69 6e 64 6f 77 20 6d | 61 6e 61 67 65 72 73 20 |window m|anagers |
|00003610| 61 6c 6c 6f 77 20 79 6f | 75 20 74 6f 20 65 6e 61 |allow yo|u to ena|
|00003620| 62 6c 65 20 61 75 74 6f | 2d 72 61 69 73 65 20 66 |ble auto|-raise f|
|00003630| 6f 72 20 63 65 72 74 61 | 69 6e 20 77 69 6e 64 6f |or certa|in windo|
|00003640| 77 73 2e 0a 59 6f 75 20 | 63 61 6e 20 75 73 65 20 |ws..You |can use |
|00003650| 74 68 61 74 20 66 6f 72 | 20 45 6d 61 63 73 20 77 |that for| Emacs w|
|00003660| 69 6e 64 6f 77 73 20 69 | 66 20 79 6f 75 20 77 69 |indows i|f you wi|
|00003670| 73 68 2c 20 62 75 74 20 | 69 66 20 79 6f 75 20 64 |sh, but |if you d|
|00003680| 6f 2c 0a 74 68 61 74 20 | 69 73 20 62 65 79 6f 6e |o,.that |is beyon|
|00003690| 64 20 74 68 65 20 63 6f | 6e 74 72 6f 6c 20 6f 66 |d the co|ntrol of|
|000036a0| 20 45 6d 61 63 73 20 61 | 6e 64 20 74 68 69 73 20 | Emacs a|nd this |
|000036b0| 63 6f 6d 6d 61 6e 64 20 | 68 61 73 20 6e 6f 20 65 |command |has no e|
|000036c0| 66 66 65 63 74 20 6f 6e | 20 69 74 2e 1f 0a 28 64 |ffect on| it...(d|
|000036d0| 65 66 61 6c 69 61 73 20 | 27 61 75 74 6f 2d 72 61 |efalias |'auto-ra|
|000036e0| 69 73 65 2d 6d 6f 64 65 | 20 23 5b 28 61 72 67 29 |ise-mode| #[(arg)|
|000036f0| 20 22 08 84 14 00 c1 c2 | c3 20 21 9e 41 83 12 00 | "......|. !.A...|
|00003700| c4 82 13 00 c5 10 c6 c3 | 20 c1 08 c7 56 42 43 5c |........| ...VBC\|
|00003710| 22 87 22 20 5b 61 72 67 | 20 61 75 74 6f 2d 72 61 |"." [arg| auto-ra|
|00003720| 69 73 65 20 66 72 61 6d | 65 2d 70 61 72 61 6d 65 |ise fram|e-parame|
|00003730| 74 65 72 73 20 73 65 6c | 65 63 74 65 64 2d 66 72 |ters sel|ected-fr|
|00003740| 61 6d 65 20 2d 31 20 31 | 20 6d 6f 64 69 66 79 2d |ame -1 1| modify-|
|00003750| 66 72 61 6d 65 2d 70 61 | 72 61 6d 65 74 65 72 73 |frame-pa|rameters|
|00003760| 20 30 5d 20 35 20 28 23 | 24 20 2e 20 31 33 36 33 | 0] 5 (#|$ . 1363|
|00003770| 37 29 20 22 50 22 5d 29 | 0a 23 40 33 39 33 20 54 |7) "P"])|.#@393 T|
|00003780| 6f 67 67 6c 65 20 77 68 | 65 74 68 65 72 20 6f 72 |oggle wh|ether or|
|00003790| 20 6e 6f 74 20 74 68 65 | 20 73 65 6c 65 63 74 65 | not the| selecte|
|000037a0| 64 20 66 72 61 6d 65 20 | 73 68 6f 75 6c 64 20 61 |d frame |should a|
|000037b0| 75 74 6f 2d 6c 6f 77 65 | 72 2e 0a 57 69 74 68 20 |uto-lowe|r..With |
|000037c0| 61 72 67 2c 20 74 75 72 | 6e 20 61 75 74 6f 2d 6c |arg, tur|n auto-l|
|000037d0| 6f 77 65 72 20 6d 6f 64 | 65 20 6f 6e 20 69 66 20 |ower mod|e on if |
|000037e0| 61 6e 64 20 6f 6e 6c 79 | 20 69 66 20 61 72 67 20 |and only| if arg |
|000037f0| 69 73 20 70 6f 73 69 74 | 69 76 65 2e 0a 4e 6f 74 |is posit|ive..Not|
|00003800| 65 20 74 68 61 74 20 74 | 68 69 73 20 63 6f 6e 74 |e that t|his cont|
|00003810| 72 6f 6c 73 20 45 6d 61 | 63 73 27 73 20 6f 77 6e |rols Ema|cs's own|
|00003820| 20 61 75 74 6f 2d 6c 6f | 77 65 72 20 66 65 61 74 | auto-lo|wer feat|
|00003830| 75 72 65 2e 0a 53 6f 6d | 65 20 77 69 6e 64 6f 77 |ure..Som|e window|
|00003840| 20 6d 61 6e 61 67 65 72 | 73 20 61 6c 6c 6f 77 20 | manager|s allow |
|00003850| 79 6f 75 20 74 6f 20 65 | 6e 61 62 6c 65 20 61 75 |you to e|nable au|
|00003860| 74 6f 2d 6c 6f 77 65 72 | 20 66 6f 72 20 63 65 72 |to-lower| for cer|
|00003870| 74 61 69 6e 20 77 69 6e | 64 6f 77 73 2e 0a 59 6f |tain win|dows..Yo|
|00003880| 75 20 63 61 6e 20 75 73 | 65 20 74 68 61 74 20 66 |u can us|e that f|
|00003890| 6f 72 20 45 6d 61 63 73 | 20 77 69 6e 64 6f 77 73 |or Emacs| windows|
|000038a0| 20 69 66 20 79 6f 75 20 | 77 69 73 68 2c 20 62 75 | if you |wish, bu|
|000038b0| 74 20 69 66 20 79 6f 75 | 20 64 6f 2c 0a 74 68 61 |t if you| do,.tha|
|000038c0| 74 20 69 73 20 62 65 79 | 6f 6e 64 20 74 68 65 20 |t is bey|ond the |
|000038d0| 63 6f 6e 74 72 6f 6c 20 | 6f 66 20 45 6d 61 63 73 |control |of Emacs|
|000038e0| 20 61 6e 64 20 74 68 69 | 73 20 63 6f 6d 6d 61 6e | and thi|s comman|
|000038f0| 64 20 68 61 73 20 6e 6f | 20 65 66 66 65 63 74 20 |d has no| effect |
|00003900| 6f 6e 20 69 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |on it...|(defalia|
|00003910| 73 20 27 61 75 74 6f 2d | 6c 6f 77 65 72 2d 6d 6f |s 'auto-|lower-mo|
|00003920| 64 65 20 23 5b 28 61 72 | 67 29 20 22 08 84 14 00 |de #[(ar|g) "....|
|00003930| c1 c2 c3 20 21 9e 41 83 | 12 00 c4 82 13 00 c5 10 |... !.A.|........|
|00003940| c6 c3 20 c1 08 c7 56 42 | 43 5c 22 87 22 20 5b 61 |.. ...VB|C\"." [a|
|00003950| 72 67 20 61 75 74 6f 2d | 6c 6f 77 65 72 20 66 72 |rg auto-|lower fr|
|00003960| 61 6d 65 2d 70 61 72 61 | 6d 65 74 65 72 73 20 73 |ame-para|meters s|
|00003970| 65 6c 65 63 74 65 64 2d | 66 72 61 6d 65 20 2d 31 |elected-|frame -1|
|00003980| 20 31 20 6d 6f 64 69 66 | 79 2d 66 72 61 6d 65 2d | 1 modif|y-frame-|
|00003990| 70 61 72 61 6d 65 74 65 | 72 73 20 30 5d 20 35 20 |paramete|rs 0] 5 |
|000039a0| 28 23 24 20 2e 20 31 34 | 32 30 37 29 20 22 50 22 |(#$ . 14|207) "P"|
|000039b0| 5d 29 0a 23 40 31 33 39 | 20 54 6f 67 67 6c 65 20 |]).#@139| Toggle |
|000039c0| 77 68 65 74 68 65 72 20 | 6f 72 20 6e 6f 74 20 74 |whether |or not t|
|000039d0| 68 65 20 73 65 6c 65 63 | 74 65 64 20 66 72 61 6d |he selec|ted fram|
|000039e0| 65 20 68 61 73 20 76 65 | 72 74 69 63 61 6c 20 73 |e has ve|rtical s|
|000039f0| 63 72 6f 6c 6c 20 62 61 | 72 73 2e 0a 57 69 74 68 |croll ba|rs..With|
|00003a00| 20 61 72 67 2c 20 74 75 | 72 6e 20 76 65 72 74 69 | arg, tu|rn verti|
|00003a10| 63 61 6c 20 73 63 72 6f | 6c 6c 20 62 61 72 73 20 |cal scro|ll bars |
|00003a20| 6f 6e 20 69 66 20 61 6e | 64 20 6f 6e 6c 79 20 69 |on if an|d only i|
|00003a30| 66 20 61 72 67 20 69 73 | 20 70 6f 73 69 74 69 76 |f arg is| positiv|
|00003a40| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |e...(def|alias 't|
|00003a50| 6f 67 67 6c 65 2d 73 63 | 72 6f 6c 6c 2d 62 61 72 |oggle-sc|roll-bar|
|00003a60| 20 23 5b 28 61 72 67 29 | 20 22 08 84 14 00 c1 c2 | #[(arg)| "......|
|00003a70| c3 20 21 9e 41 83 12 00 | c4 82 13 00 c5 10 c6 c3 |. !.A...|........|
|00003a80| 20 c1 08 c7 56 42 43 5c | 22 87 22 20 5b 61 72 67 | ...VBC\|"." [arg|
|00003a90| 20 76 65 72 74 69 63 61 | 6c 2d 73 63 72 6f 6c 6c | vertica|l-scroll|
|00003aa0| 2d 62 61 72 73 20 66 72 | 61 6d 65 2d 70 61 72 61 |-bars fr|ame-para|
|00003ab0| 6d 65 74 65 72 73 20 73 | 65 6c 65 63 74 65 64 2d |meters s|elected-|
|00003ac0| 66 72 61 6d 65 20 2d 31 | 20 31 20 6d 6f 64 69 66 |frame -1| 1 modif|
|00003ad0| 79 2d 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |y-frame-|paramete|
|00003ae0| 72 73 20 30 5d 20 35 20 | 28 23 24 20 2e 20 31 34 |rs 0] 5 |(#$ . 14|
|00003af0| 37 37 37 29 20 22 50 22 | 5d 29 0a 23 40 31 39 30 |777) "P"|]).#@190|
|00003b00| 20 54 6f 67 67 6c 65 20 | 77 68 65 74 68 65 72 20 | Toggle |whether |
|00003b10| 6f 72 20 6e 6f 74 20 74 | 68 65 20 73 65 6c 65 63 |or not t|he selec|
|00003b20| 74 65 64 20 66 72 61 6d | 65 20 68 61 73 20 68 6f |ted fram|e has ho|
|00003b30| 72 69 7a 6f 6e 74 61 6c | 20 73 63 72 6f 6c 6c 20 |rizontal| scroll |
|00003b40| 62 61 72 73 2e 0a 57 69 | 74 68 20 61 72 67 2c 20 |bars..Wi|th arg, |
|00003b50| 74 75 72 6e 20 68 6f 72 | 69 7a 6f 6e 74 61 6c 20 |turn hor|izontal |
|00003b60| 73 63 72 6f 6c 6c 20 62 | 61 72 73 20 6f 6e 20 69 |scroll b|ars on i|
|00003b70| 66 20 61 6e 64 20 6f 6e | 6c 79 20 69 66 20 61 72 |f and on|ly if ar|
|00003b80| 67 20 69 73 20 70 6f 73 | 69 74 69 76 65 2e 0a 48 |g is pos|itive..H|
|00003b90| 6f 72 69 7a 6f 6e 74 61 | 6c 20 73 63 72 6f 6c 6c |orizonta|l scroll|
|00003ba0| 20 62 61 72 73 20 61 72 | 65 6e 27 74 20 69 6d 70 | bars ar|en't imp|
|00003bb0| 6c 65 6d 65 6e 74 65 64 | 20 79 65 74 2e 1f 0a 28 |lemented| yet...(|
|00003bc0| 64 65 66 61 6c 69 61 73 | 20 27 74 6f 67 67 6c 65 |defalias| 'toggle|
|00003bd0| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 2d 73 63 72 6f |-horizon|tal-scro|
|00003be0| 6c 6c 2d 62 61 72 20 23 | 5b 28 61 72 67 29 20 22 |ll-bar #|[(arg) "|
|00003bf0| c0 c1 21 87 22 20 5b 65 | 72 72 6f 72 20 22 48 6f |..!." [e|rror "Ho|
|00003c00| 72 69 7a 6f 6e 74 61 6c | 20 73 63 72 6f 6c 6c 20 |rizontal| scroll |
|00003c10| 62 61 72 73 20 61 72 65 | 6e 27 74 20 69 6d 70 6c |bars are|n't impl|
|00003c20| 65 6d 65 6e 74 65 64 20 | 79 65 74 22 5d 20 32 20 |emented |yet"] 2 |
|00003c30| 28 23 24 20 2e 20 31 35 | 31 30 35 29 20 22 50 22 |(#$ . 15|105) "P"|
|00003c40| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00003c50| c1 c2 5c 22 88 c0 c3 c4 | 5c 22 87 22 20 5b 64 65 |..\"....|\"." [de|
|00003c60| 66 61 6c 69 61 73 20 73 | 63 72 65 65 6e 2d 68 65 |falias s|creen-he|
|00003c70| 69 67 68 74 20 66 72 61 | 6d 65 2d 68 65 69 67 68 |ight fra|me-heigh|
|00003c80| 74 20 73 63 72 65 65 6e | 2d 77 69 64 74 68 20 66 |t screen|-width f|
|00003c90| 72 61 6d 65 2d 77 69 64 | 74 68 5d 20 33 29 0a 23 |rame-wid|th] 3).#|
|00003ca0| 40 33 32 37 20 4f 62 73 | 6f 6c 65 74 65 20 66 75 |@327 Obs|olete fu|
|00003cb0| 6e 63 74 69 6f 6e 20 74 | 6f 20 63 68 61 6e 67 65 |nction t|o change|
|00003cc0| 20 74 68 65 20 73 69 7a | 65 20 6f 66 20 74 68 65 | the siz|e of the|
|00003cd0| 20 73 63 72 65 65 6e 20 | 74 6f 20 43 4f 4c 53 20 | screen |to COLS |
|00003ce0| 63 6f 6c 75 6d 6e 73 2e | 0a 4f 70 74 69 6f 6e 61 |columns.|.Optiona|
|00003cf0| 6c 20 73 65 63 6f 6e 64 | 20 61 72 67 20 6e 6f 6e |l second| arg non|
|00003d00| 2d 6e 69 6c 20 6d 65 61 | 6e 73 20 74 68 61 74 20 |-nil mea|ns that |
|00003d10| 72 65 64 69 73 70 6c 61 | 79 20 73 68 6f 75 6c 64 |redispla|y should|
|00003d20| 20 75 73 65 20 43 4f 4c | 53 20 63 6f 6c 75 6d 6e | use COL|S column|
|00003d30| 73 0a 62 75 74 20 74 68 | 61 74 20 74 68 65 20 69 |s.but th|at the i|
|00003d40| 64 65 61 20 6f 66 20 74 | 68 65 20 61 63 74 75 61 |dea of t|he actua|
|00003d50| 6c 20 77 69 64 74 68 20 | 6f 66 20 74 68 65 20 66 |l width |of the f|
|00003d60| 72 61 6d 65 20 73 68 6f | 75 6c 64 20 6e 6f 74 20 |rame sho|uld not |
|00003d70| 62 65 20 63 68 61 6e 67 | 65 64 2e 0a 54 68 69 73 |be chang|ed..This|
|00003d80| 20 66 75 6e 63 74 69 6f | 6e 20 69 73 20 70 72 6f | functio|n is pro|
|00003d90| 76 69 64 65 64 20 6f 6e | 6c 79 20 66 6f 72 20 63 |vided on|ly for c|
|00003da0| 6f 6d 70 61 74 69 62 69 | 6c 69 74 79 20 77 69 74 |ompatibi|lity wit|
|00003db0| 68 20 45 6d 61 63 73 20 | 31 38 3b 20 6e 65 77 20 |h Emacs |18; new |
|00003dc0| 63 6f 64 65 0a 73 68 6f | 75 6c 64 20 75 73 65 20 |code.sho|uld use |
|00003dd0| 60 73 65 74 2d 66 72 61 | 6d 65 2d 77 69 64 74 68 |`set-fra|me-width|
|00003de0| 20 69 6e 73 74 65 61 64 | 27 2e 1f 0a 28 64 65 66 | instead|'...(def|
|00003df0| 61 6c 69 61 73 20 27 73 | 65 74 2d 73 63 72 65 65 |alias 's|et-scree|
|00003e00| 6e 2d 77 69 64 74 68 20 | 23 5b 28 63 6f 6c 73 20 |n-width |#[(cols |
|00003e10| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 72 65 74 65 6e |&optiona|l preten|
|00003e20| 64 29 20 22 c0 c1 20 5c | 6e 0b 23 87 22 20 5b 73 |d) ".. \|n.#." [s|
|00003e30| 65 74 2d 66 72 61 6d 65 | 2d 77 69 64 74 68 20 73 |et-frame|-width s|
|00003e40| 65 6c 65 63 74 65 64 2d | 66 72 61 6d 65 20 63 6f |elected-|frame co|
|00003e50| 6c 73 20 70 72 65 74 65 | 6e 64 5d 20 34 20 28 23 |ls prete|nd] 4 (#|
|00003e60| 24 20 2e 20 31 35 35 32 | 35 29 5d 29 0a 23 40 33 |$ . 1552|5)]).#@3|
|00003e70| 32 39 20 4f 62 73 6f 6c | 65 74 65 20 66 75 6e 63 |29 Obsol|ete func|
|00003e80| 74 69 6f 6e 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |tion to |change t|
|00003e90| 68 65 20 68 65 69 67 68 | 74 20 6f 66 20 74 68 65 |he heigh|t of the|
|00003ea0| 20 73 63 72 65 65 6e 20 | 74 6f 20 4c 49 4e 45 53 | screen |to LINES|
|00003eb0| 20 6c 69 6e 65 73 2e 0a | 4f 70 74 69 6f 6e 61 6c | lines..|Optional|
|00003ec0| 20 73 65 63 6f 6e 64 20 | 61 72 67 20 6e 6f 6e 2d | second |arg non-|
|00003ed0| 6e 69 6c 20 6d 65 61 6e | 73 20 74 68 61 74 20 72 |nil mean|s that r|
|00003ee0| 65 64 69 73 70 6c 61 79 | 20 73 68 6f 75 6c 64 20 |edisplay| should |
|00003ef0| 75 73 65 20 4c 49 4e 45 | 53 20 6c 69 6e 65 73 0a |use LINE|S lines.|
|00003f00| 62 75 74 20 74 68 61 74 | 20 74 68 65 20 69 64 65 |but that| the ide|
|00003f10| 61 20 6f 66 20 74 68 65 | 20 61 63 74 75 61 6c 20 |a of the| actual |
|00003f20| 68 65 69 67 68 74 20 6f | 66 20 74 68 65 20 73 63 |height o|f the sc|
|00003f30| 72 65 65 6e 20 73 68 6f | 75 6c 64 20 6e 6f 74 20 |reen sho|uld not |
|00003f40| 62 65 20 63 68 61 6e 67 | 65 64 2e 0a 54 68 69 73 |be chang|ed..This|
|00003f50| 20 66 75 6e 63 74 69 6f | 6e 20 69 73 20 70 72 6f | functio|n is pro|
|00003f60| 76 69 64 65 64 20 6f 6e | 6c 79 20 66 6f 72 20 63 |vided on|ly for c|
|00003f70| 6f 6d 70 61 74 69 62 69 | 6c 69 74 79 20 77 69 74 |ompatibi|lity wit|
|00003f80| 68 20 45 6d 61 63 73 20 | 31 38 3b 20 6e 65 77 20 |h Emacs |18; new |
|00003f90| 63 6f 64 65 0a 73 68 6f | 75 6c 64 20 75 73 65 20 |code.sho|uld use |
|00003fa0| 60 73 65 74 2d 66 72 61 | 6d 65 2d 77 69 64 74 68 |`set-fra|me-width|
|00003fb0| 27 20 69 6e 73 74 65 61 | 64 2e 1f 0a 28 64 65 66 |' instea|d...(def|
|00003fc0| 61 6c 69 61 73 20 27 73 | 65 74 2d 73 63 72 65 65 |alias 's|et-scree|
|00003fd0| 6e 2d 68 65 69 67 68 74 | 20 23 5b 28 6c 69 6e 65 |n-height| #[(line|
|00003fe0| 73 20 26 6f 70 74 69 6f | 6e 61 6c 20 70 72 65 74 |s &optio|nal pret|
|00003ff0| 65 6e 64 29 20 22 c0 c1 | 20 5c 6e 0b 23 87 22 20 |end) "..| \n.#." |
|00004000| 5b 73 65 74 2d 66 72 61 | 6d 65 2d 68 65 69 67 68 |[set-fra|me-heigh|
|00004010| 74 20 73 65 6c 65 63 74 | 65 64 2d 66 72 61 6d 65 |t select|ed-frame|
|00004020| 20 6c 69 6e 65 73 20 70 | 72 65 74 65 6e 64 5d 20 | lines p|retend] |
|00004030| 34 20 28 23 24 20 2e 20 | 31 35 39 38 37 29 5d 29 |4 (#$ . |15987)])|
|00004040| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00004050| 5c 22 88 c0 c3 c4 5c 22 | 88 c0 c5 c6 5c 22 88 c0 |\"....\"|....\"..|
|00004060| c7 c8 5c 22 87 22 20 5b | 6d 61 6b 65 2d 6f 62 73 |..\"." [|make-obs|
|00004070| 6f 6c 65 74 65 20 73 63 | 72 65 65 6e 2d 68 65 69 |olete sc|reen-hei|
|00004080| 67 68 74 20 66 72 61 6d | 65 2d 68 65 69 67 68 74 |ght fram|e-height|
|00004090| 20 73 63 72 65 65 6e 2d | 77 69 64 74 68 20 66 72 | screen-|width fr|
|000040a0| 61 6d 65 2d 77 69 64 74 | 68 20 73 65 74 2d 73 63 |ame-widt|h set-sc|
|000040b0| 72 65 65 6e 2d 77 69 64 | 74 68 20 73 65 74 2d 66 |reen-wid|th set-f|
|000040c0| 72 61 6d 65 2d 77 69 64 | 74 68 20 73 65 74 2d 73 |rame-wid|th set-s|
|000040d0| 63 72 65 65 6e 2d 68 65 | 69 67 68 74 20 73 65 74 |creen-he|ight set|
|000040e0| 2d 66 72 61 6d 65 2d 68 | 65 69 67 68 74 5d 20 33 |-frame-h|eight] 3|
|000040f0| 29 0a 23 40 32 38 20 4b | 65 79 6d 61 70 20 66 6f |).#@28 K|eymap fo|
|00004100| 72 20 66 72 61 6d 65 20 | 63 6f 6d 6d 61 6e 64 73 |r frame |commands|
|00004110| 2e 1f 0a 28 64 65 66 76 | 61 72 20 63 74 6c 2d 78 |...(defv|ar ctl-x|
|00004120| 2d 35 2d 6d 61 70 20 28 | 6d 61 6b 65 2d 73 70 61 |-5-map (|make-spa|
|00004130| 72 73 65 2d 6b 65 79 6d | 61 70 29 20 28 23 24 20 |rse-keym|ap) (#$ |
|00004140| 2e 20 31 36 36 33 31 29 | 29 0a 28 62 79 74 65 2d |. 16631)|).(byte-|
|00004150| 63 6f 64 65 20 22 c0 c1 | 5c 6e 5c 22 88 c3 5c 66 |code "..|\n\"..\f|
|00004160| c5 c1 23 88 c3 5c 6e c6 | c7 23 88 c3 5c 6e c8 c9 |..#..\n.|.#..\n..|
|00004170| 23 88 c3 5c 6e ca cb 23 | 88 cc cd 21 87 22 20 5b |#..\n..#|...!." [|
|00004180| 64 65 66 61 6c 69 61 73 | 20 63 74 6c 2d 78 2d 35 |defalias| ctl-x-5|
|00004190| 2d 70 72 65 66 69 78 20 | 63 74 6c 2d 78 2d 35 2d |-prefix |ctl-x-5-|
|000041a0| 6d 61 70 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 63 |map defi|ne-key c|
|000041b0| 74 6c 2d 78 2d 6d 61 70 | 20 22 35 22 20 22 32 22 |tl-x-map| "5" "2"|
|000041c0| 20 6d 61 6b 65 2d 66 72 | 61 6d 65 2d 63 6f 6d 6d | make-fr|ame-comm|
|000041d0| 61 6e 64 20 22 30 22 20 | 64 65 6c 65 74 65 2d 66 |and "0" |delete-f|
|000041e0| 72 61 6d 65 20 22 6f 22 | 20 6f 74 68 65 72 2d 66 |rame "o"| other-f|
|000041f0| 72 61 6d 65 20 70 72 6f | 76 69 64 65 20 66 72 61 |rame pro|vide fra|
|00004200| 6d 65 5d 20 34 29 0a | |me] 4). | |
+--------+-------------------------+-------------------------+--------+--------+
